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INTRODUCED 


Amigo leitor, 

Ab adquirir, em meados de 1982, o meu primeiro microcomputador, 
urn novo mundo de desafios intelectuais abriu-se para mim.Folheei »!Ma- 
nual uma primeira vez. Comecei a "brincar" com o computador. Li o Ma* 
nual em profundidade... 

Aos poucos, muito lentamente, comecei a entrar no espirito da lin- 
guagem BASIC e a entender o enorme potencial de utilizapao pratica que 
estava escondido dentro daquela pequena carcapa de plSstico. 

Comprei livros e revistas com programas (naquela epoca todos ain- 
da importados), e aos poucos, comecei a tentar modificar algumas linhas 
de um programa publicado, so para ver o que acontecia. 

Quando me dei conta, percebi que tinha aprendido os rudimentos 
de programapao: 

Arrisquei mandar uma colaboragao para a revista "Microhobby" 
ela foi aceita e publicada. Foi o sinal. para mim, que as horas passadas jun 
to ao teclado do meu computador valeram para alguma coisa. 

Adquiri, entao, um TK-85 que embora de mesma logica do compu¬ 
tador que eu possuia, representava uma evolupao evidente. Melhor tecla¬ 
do e, principalmente, a possibilidade de usar funpSes exclusivas que ele 
apresentava. Por exemplo, refiz toda a minha fitoteca em "High Speed". 

0 livro n§o pretende ensinar os rudimentos da linguagem BASIC aos 
leitores. Outros livros ja foram escritos com esta finalidade. Alem disso, o 
Manual que acompanha o aparelho e bastante minucioso e util. 

A finalidade do livro 6 a de compartilhar, com os amigos leitores, as 
experiences e descobertas que o computador me proporcionou. 

Voc§s vao notar que os programas apresentados se propQem a ex- 
plorar as principais potencialidades do seu computador pessoal e a utiliza- 
pao pratica dessas potencialidades para estudos, desenhos, graficos, ar- 
quivos de dados, e como nao poderia deixar de ser, para jogos inteligentes. 

Sugiro aos leitores que leiam o livro e analisem os programas, pro- 
curando entender cada linha de instrupao e o que ela realiza. 

Tentem fazer modificapSes nos programas e verifiquem os resul- 

tados. 

Aventurem-se nos meandros da linguagem BASIC. 

0 livro foi escrito para ajuda-los nesta aventura. 

BomProveito. . . 
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ANIMAQAO NO COMPUTADOR 


Uma das caracteristicas mais interessantes do seu computador pes- 
soal e a sua capacidade de executar programas animados. 

Por esta razao, e para que o amigo leitor se prenda logo a ieitura e 
utilizapao deste despretencioso livro, e que o autor resolveu dedicar este 
capitulo as ROTiNAS DE ANIMAQAO. 

Estas rotinas sao utilizadas primeiramente para jogos, mas tern tam- 
bem outros usos conforme sera visto mais adiante. 

Uso da funp5o INKEY$ 

A principal instrupao para criar animapao no. seu computador e a 
funpao INKEY$. Ela permite ao computador executar determinada "tarefa" 
ao simples digitar de alguma tecla. 

Vamos entender juntos o seu funcionamento: 

0 computador, ao executar uma instrupao que contenha a funpao 
INKEY$, examina o teclado. Se neste instante uma tecla estiver sendo 
acionada, o caractere desta tecla e colocado em INKEY$, isto e: se voce 
acionar a tecla "T", por exemplo, neste instante INKEY$ sera igual a "T". 

Entre com as duas linhas de programs abaixo para verificar, na 
pratica, o funcionamento de INKEY$. 

IS PRINT INKEY 5 ; 

20 GOTO 10 

Agora de RUN no programs. Nada acontecera enquanto voce nao 
acionar alguma tecla. 

Digite, por exemplo, a letra "T". Enquanto voce estiver com o dedo 
na tecla o programa girara entre as suas duas linhas de instrupoes e uma 
serie de "T"s aparecera na tela. Tente outra tecla e veja o resultado. "E 
dai?" e a pergunta que certamente ocorrera ao leitor neste momento. Entre 
com o programa abaixo e voce vera uma utilizapao pratica do uso de 
INKEY$. 


10 ■ 

20 

T- ry 
■- 1 VI* 

40 . 

i_irT V = 10 

LET X = 15 

LET 2 * = 

IF INKEY $ = ** 5 ** 

THEN 

LET X-X- 

50 

IF INK EV $ = M 6 ” 

THEN 

LET Y =Y + 

50 

IF INKEV $ = ”7 M 

THEN 

LET Y=Y- 

70 

IF INKEY $ = “8“ 

THEN 

LET X=X+ 

£00* 

£10 

PRINT RT Y,X; 
GOT0 40 

•Lm. ZZ 
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O programs permite movimentar um ponto atravSs da tela usando as 
teclas 5, 6, 7 e 8 que sao as teclas indicadoras de direpao (voce pode tarrv 
bem usar o "Joystick" para isso). 

Entenda seu funcionamento: 

O programs fica girando entre as instrugoes 40 e 210 aguardando 
que voce acione alguma tecla. Se voce nao acionar alguma tecla, ou a te- 
cla acionada for diferente de 5,6,7 ou 8, nada acontecera. 

"Se voce acionar a tecla 5, por exemplo, entao INKEY$ sera = "5" e 
o valor de X sera diminuido de uma unidade, portanto, o ponto se deslo- 
cara para a esquerda. 

0 programs podera ser melhorado a fim de evitar a sua interrupgao 
quando o ponto tentar uitrapassar os limites da tela da sua televisao. En¬ 
tre com as linhas abaixo, e divirta-se com as estrepolias do seu "PONTO 
ANDANTE". 


SO IF 
90 IF 
100 IF 
110 IF 



iHEN LET X 
1 THEN LET 


Y < 0 THEN LET Y 


1 THEN LET 


31 
= 0 
21 
= 0 / 


Muito bem, nesta altura do Campeonato o leitor amigo, ja estara 
pronto para entender a estrutura do programa "0 DESENHISTA" que usa 
exatamente a rotina que acabamos de aprender para fazer desenhos na 
tela. 


O Desenhista 


"0 DESENHISTA" permite ao leitor "desenhar telas", que depois 
serao memorizadas peio computador em uma variavel "String". 0 progra¬ 
ma e excelente para criar aberturas para outros programas. Vamos a ele: 

Parte A 


1) Entre com o programa listado abaixo: 


1 R £ M G D E S E N HI ST A 

*C) -B.C. STEIN 

H l? u i y m 

Q p* 

3 FOR N=0 TO 2 1 

4 PRINT 11 


5 NEXT N 
5 GOTO 15 
10 uL Zf 
15 LET X = 1 
20 LET Y = 42 
30 LET 0=1 

40 IF INKEY $ = ”F U THEN GOTO 200 
50 IF 0 = 1 AND INKEY$ = ”0” THEN 
LET 0=0 

55 FOR M = 0 TO 1 
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56 NEXT N 

60 IF 9=0 AND INKEY$ = ,i 0 , ‘ THEN 
LET 0=1 

70 IF IN KEY $ = ” 5” THEN LET X=X- 

•1 

80 IF IN KEY $ = ” S” THEN LET Y=Y- 

1 

90 IF IN KEY $ = ” 7” THEN LET Y=Yt 


IF INKEY$="8" THEN LET X=X* 


101 Ir X<0 iHtN LtT X=63 

102 IF X >63 THEN LET X=8 
184 IF Y < 0 THEN LET Y=42 
105 IF Y > 43 THEN LET Y =8 
110 UNPLOT X,Y 

120 PLOT XjY 

138 IF O THEN UNPLOT X,Y 

140 GOTO 40 

200 FAST 

210 DIM X$(704) 

220 FOR 1=0 TO 21 
238 FOR d=i TO 32 
240 LET X$(J+32*I)=CHR$ PEEK C( 
PEEK 16396+256*PEEK 16397)+J+33* 
I) 

250 NEXT d 
260 NEXT I 
278 SLOW 
288 GLS 

298 PRINT AT .5,0;"PRONTO, EU ME 
MORIZEI A SUA OBRA M iAT 8,8; n ENTR 
E ” “ PRINT X$ ” ” PARA CONFIRMAR" 
388 STOP ' 

408 SAME s 0 DESENHISTA” 

418_PRIN T AT 5,9;"0 DESENHISTA” 

ARA FUNDO BRANCO, ENTRE A 

T 11,2;“PARA FUNDO PRETO, ENTRE 

: l 11 p, it it 11 

428 IF lHKEY$ = "~P' t THEN GOTO 1 
438 IF INKEY$=”B” THEN GOTO 18 
4-4-0 b'UTU 4-0 


2) Passe o programa para o gravador 

a) Entre “GOTO 400". 

b) Coloque o gravador em "Rec". 

Parte B 

Suponhamos que voce queira criar uma tela de abertura para os seus 
programas, como segue: 
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Proceda da seguinte forma: 

1) Se voce possuir o "Joystick" acople-o ao computador. 

2) Passe o programs previamente armazenado em fita para o seu compu¬ 
tador entrando LOAD "0 DESENHISTA" , ou LOAD " 

3) Ao iniciar-se o programs perguntar-lhe-a se voce deseja a tela com fun- 
do branco (B) ou preto (P). Escolha. 

4) Agora voce vera na tela dai sua TV o fundo escolhido,e,no canto supe¬ 
rior esquerdo um ponto piscando. 

5) Experimente movimentar a alavanca do "Joystick" nas quatro diregoes 
(se voce nao possuir um, recomendo que compre). Por hora tente movi¬ 
mentar o ponto com as teclas 5,6,7 e 8. 

6) 0 Ponto se movera,deixando ou nao, um rastro atras de si. 

7) Aperte o botao vermelho do "Joystick" (ou a tecla 0 do computador). 

8) Tente algumas vezes. Com um pouco de pratica, voce percebera como 
trapar riscos, apagar riscos ou apenas movimentar o ponto atraves da tela. 

9) Agora, com o seu extremo senso de criapao e bom gosto, desenhe uma 
bela apresentapao para os seus programas. 

10) Quando a sua obra estiver concluida entre F (fim). 

11) 0 computador ira para o modo "FAST" e a imagem desaparecera por 
aproximadamente 30 segundos. 

12) Tente agora entrar "PRINT X$". Viu? 

Beleza pura, nao e? 

Parte C 

E agora? 

Bern, acredito que voc§ criou a tela como abertura para os seus pro¬ 
gramas. Entao proceda assim: 
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1) Nuncatnunca mesmo) entre com RUN, CLEAR ou NEW. 

2) Apague todas as linhas do programa, uma a uma, entrando o numero de 
linhae "NEWLINE". 

3) Depois de fazer isso com todas as linhas, a tela ficara branca e voce 
ficara desapontadd. 

4) Mas, se voce nao entrou com RUN, CLEAR, Ou NEW, nao desespere, 
tente entrar "PRINT X$". Viu, beleza pura novamente! 

5) Agora entre com as linhas do programa conforme indicado a seguir. 


10 

£*8 

30 

4-0 

50 

£ 


PRINT X 
FOR N=0 
NEXT N 


L- L. b 



i ENTRE COM 0 SEU PROGRAMA 


XX00 STOP 
XXI0 SAUt: 
XXH0 GUT.U 


"NOME DO PROGRAMA" 
10 


a) Ate a linha 40 conforme apresentado.- 

b) Da linha 50 em diante entre com o seu programa. 

c) Apos o termino do seu programa, a linha seguinte, que esta indicada 
genericamente como XX00. deve conter o.comando "STOP". 

d) Na linha seguinte,entre com SAVE e tftulo do seu programa.. 

e) Na outra linha "GOT010". 

f) Para armazenar todo o conjunto de apresentaqdes, mais o seu progra¬ 
ma, entre "GOTO XX10", isto e, para o numero que esta linha tiver no seu 
programa. Facil; n§o e? 

Cada vez que voce carregar o seu programa no computador, ele 
iniciar-se-a com a sua abertura. Impressione seus amigos. Voce pode alte- 
rar o tempo de permanencia da apresentapao na tela, alterando o valor 100 
na linha 20. 


Animapcio 


Entre com o programa abaixo e veja como podem ser executadas 
rotinas de animagao em jogos. 

10 FOR X=0 TO 61 
20 PLOT X,0 
■3 0 F' L U i X +1,0 
40 PLOT X+2,0 
50 PLOT X+1,1 
4,60 FOR T =0 TO 5 
70 NEXT T 
SO UNPLOT X,0 
90 UNPLOT X+l,1 
100 NEXT X 
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Se voce alterar o valor de "T" na linha 60, a velocidade de seu car- 
rinho mudara. 


Trtulos Animados 


Alem de animar objetos que se movimentam na tela, o seu compu- 
tador pode formar letras, desenhos e palavras diante dos seus olhos. Um 
uso pratico desta propriedade o leitor podera ver no programa "0 APRE- 
SENTADOR", no II capitulo do livro. "0 APRESENTADOR" gera uma 
abertura para o programa de video. Na sua primeira parte a palavra "apre- 
senta" se forma diante dos seus olhos. 

Vamos mostrar como este outro tipo de animapSo pode ser execu- 

tado. 

Suponhamos que o leitor queira "desenhar" uma linha horizontal no 
meio da tela que se forma da esquerda para direita. Fapa assim: 

10 FOR X=28 TO 35 
20 LET V =25 
30 GOSUB 9990 
9970 STOP 
9990 PLOT X,Y 
99§1 NEXT X 
9992 RETURN 

Agora desenhe a mesma linha da direita para esquerda: 

10 FOR X =35 TO 28 STEP -1 
20 LET Y =25 
3 0 G 0 5 U B 9990 
QQ70 STOP 

9990 PLOT X,Y 

9991 NEXT X 

9992 RETURN 

Agora vamos desenhar uma linha vertical de cima para baixo: 


10 LET X =28 

20 FOR Y =25 TO 18 STEP -1 

30 ftnSilE? Q Q F; 0 

9970 STOP 

9980 PLOT X,Y 

9981 NEXT Y 
QQQ2 RETURN 


ou de baixo para cima.* 


10 LET X=28 
20 FOR Y =18 TO 25 
30 GOSUB 9980 
9970 STOP 

9980 PLOT X,Y 

9981 NEXT Y 

9982 RETURN 
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Agora vamos criar um quadrado que se forma no "sentido horario": 

10 LET Y =25 
20 FOR X =28 TO 35 
0 Q 0 S U B 9990 
40 LET X=35 

50 FOR Y =25 TO 18 STEP -1 
r 0 fin SUB 9980 
70 FOR X =35 TO 28 STEP -1 
80 LET Y-18 
90 GOSUB 9990 
100 LET X =28 
110 FOR Y = 18 TO 25 
120 GOSUB 9980 
9970 STOP 

9980 PLOT X,Y 

9981 NEXT Y 

9982 RETURN 

9990 PLuT X, Y 

9991 NEXT X 

9992 RETURN 

Vamos desenhar o mesmo quadrado no sentido anti-horario: 

10 LET X =28 

20 FOR Y =25 TO 18 STEP -1 
■2i 0 (jU ij U E* 9900 
40. FOR X=28 TO 35 
50 LET Y = 18 
50 GOSUB 9998 
70 LET X=35 
80 FOR Y = 18 TO 25 
90 GOSUB 9980 
100 FOR X =35 TO 28 STEP -1 
110 LET Y =25 
120 GOSUB 9990 
9970 STOP 

9980 PLOT X,Y 

9981 NEXT Y 
9932 RETURN 

9990 PLOT X i Y 

9991 NEXT X 

9992 RETURN 

Pronto. Para programar qualquer letreiro animado, basta seguir o 
mesmo roteiro que acabei de mostrar. 

Para fixar os valores numericos que definem a posipao e o limite das 
linhas, sugiro que o leitor proceda assim: 

Tire algumas copias da folha quadriculada do Manual do seu compu- 
tador no capitulo que trata de Graficos (no caso do Manual do TK-85 tire 
copias da pag. 18-3). 

Nestas copias o leitor desenhara o titulo na sua versao final. 

Depois utilize as coordenadas numericas do grafico para fixar os 
limites das linhas. Parece complicado, mas nao 6. Sugiro que o leitor faga 
algumas tentativas iniciais e logo se tornara um mestre. 



Numeros Aleat6rios 


Para que o leitor entenda totalmente a estrutura dos programas de 
jogos, falta discutirmos juntos a fungao RND. 

A fungao RND gera numeros aleatdrios (eles nao sao exatamente 
aleatorios, mas para as nossas necessidades praticas podemos conside- 
ra-los assim). 

Entre com as linhas abaixo: 

10 LET fi=RND 
£0 PRINT R, 

30 GOTO 10 

Este programa gera numeros entre 0 e 1, (inclusive o 0 e exclusive 
o 1). Se voce alterar a linha 10para: 

10 LET R=S*RND 

voc§ obtera numeros fracionarios entre 0 e 5,99999999 
Se agora voce mudar a linha 10 para: 

10 LET 1-1 = INT (6*RND) 

voce obtera numeros aleatdrios inteiros entre 0 e 5 (inclusive). 

Faga mais uma alteragio, 

10 LET fi = INT C6*RND)+1 

e voc§ obtera numeros entre 1 e 6. Pronto, acabamos de aprender como se 
Simula as jogadas de urn dado nos programas de jogos. Voce podera ver a 
utilizagao desta instrugSo no programa "LUDO" no capitulo VII do livro. 

Voc§ pode verificar, tambem, que quase todos os programas de 
jogos usam a fungao RND para criar "situagoes" inesperadas no seu trans- 
correr. 0 programa "0 POETA", por exemplo, usa RND para gerar poesias 
aleatdrias; verifique. 

Abaixo, segue um programinha como exemplo para ilustrar o funcio- 
inamentoda RND: 

10 LET fl=INT {RND*223 
20 LET B = INT (RND*32.3 
30 PRINT .RT H , E ; "X" 

40.GOTO 10 

A tela se enchera de "X" em posigoes aleatorias. 

(puxa vida, que jogo emocionante!) 

Os outros programas que completam este capitulo usam justamente 
as fungoes e rotinas que acabamos de discutir. 

1) ATAQUEAEREO 
Entre com o programa. 

Siga as instrugbes que 3le apresentara e divirta-se. 
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1 REM RTROUE REREO 

JUL 1984 

£ LET H=180 

3 LET 5=0 

4 LET Y =INT (RND*22) 

•5 LET X = INT (RND*30) +1 

6 CLS 

7 LET X=X + INT (RND*3) -1 

8 LET Y =Y + INT (RND*3) -1 

9 PRINT RT 9,14; “V 

10 PRINT RT 9,16; ’V" 

11 PRINT RT 11,14; *'»■" 

12 PRINT RT 11,16; “V* 

15 PRINT H 


16 

IF 

H <1 THEN GOTO 3 

ET 

w 1 


17 

IF 

X >26 THEN LET X 

= 0 


IS 

IF 

Y>21 THEN LET Y 

= 0 


19 

PRINT PT Y,X-1; "wi£ 

V 


21 

IF 

INKEY$ = ,, 6 , ‘ THEN 

LET 

< 

it 

I 

o o 

rn*m tmrn 

IF 

INKEY $ = "5“ THEN 

LET 

x=x+ 


IF 

INKEY$ = "7'* THEN 

LET 

Y=Y + 

24 

•"t 

IF 

INKEY'$ = ‘'8" THEN 

LET 

X =X- 

fiU 

IF 

INT (RND*63*1=1 

THEh 

4 LET 

H =H- 

■INT 

(RND*153+1 



26 

IF 

INKEY$ = "0" THEN 

got*: 

3 28 


GuT»j tj 

28 IF X = 15 PND Y —10 THEN GOTO 


111 TU v 1 

30 PRINT PT 10,14;” 


31 

LET 6=5 + 1 

fS *T‘ 

' 4m9 

Fnp t= 0 Ti 

v5 w* 

NEXT T 

•J'4> 

ijn 0 T u 4 

35 

PRINT "UQi 

XROS 


36 

STOP 

j y 

FRU£ "■ PTP 

OQ 

PRINT PT ; 

39 

PRINT PT \ 

40 

PRINT 

4.1 

PRINT 

42 

PRINT TPB 


£ fUzRtzQ :: 


42 PRINT 1 PB 7; “HOUR .StU; PUIPO 

■< 

^ 43 PR INT. _TRJ3 4; 11 COM PS TECLPS 

w Jt W / s’ U. u* r 

44 PRINT 

45 PRINT TPB 6J "RTIP.E COM P TE 
CLP~0.“ 

45 PRINT 

47 PRINT TPB 4; “X0U USE SEU ”* v 
JOY STICK * " 



FOR T =0 '0 120 
NEXT T 
GOTO 1 

2) PONG 




Eis um dos programas classicos dos video-jogos adaptado para o seu 
computador. 

Para melhor aproveitamento sugiro que o leitor use o seu "Joys¬ 
tick". 


1 REM 00000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 


0000000000000 

2 REM JOGOS CLRS SICQS 

TRRDUZIDO 
POR B.C.STEIN 
JUN 1984 

3 F PST 

4 GOSUB 20© 

5 5LOU 

6 LET RG=16559 

7 LET RU=16691 


20 


8*C8 


8 LET E=0 

9 POKE 16389,12? 

I© print rt 0 , 14 ;“jasas , ‘ 

12 FOR 1 = 6 TO 18 STEP 2 

14 FOR J =4 TO 16 STEP 2 

15 PRINT RT I, J; “ST* 

18 NEXT J 

2© NEXT I 

4Q LET J=U5R 16705 

45 POKE 16668,32 

46 POKE 16669,35 

47 POKE 16696,33 

48 POKE 16697,27 

50 GOTO 100-(14 < >HSR RGj*(45-2 
8 3* £© <>U5R RU) ) . 

55 POKE 16666,34 

56 POKE 16669,43 

5? POKE 15696,1 

58 POKE 16597,19 

6© GOTO 100-C14OUSR RG) * (35+2 

0*(0<>USR Run 

65 POKE 16666,32 

66 POKE 16669,43 

67 POKE 16696,33 

68 POKE 16697,19 

70 GOTO 100*** (14 < > USR RG) * 1254*2 
0*(© <>USR RU) ) 

75 POKE 16668,34 

76 POKE 16669,35 

77 POKE 16696,1 

78 POKE 16697.27 

8© GOTO 100-Ci4< >USR RG) *(55-2 
©± C©< >USR RU) ) 

10© LET E.=E +1 

118 PRINT RT 0,3;E 

120 IF E=7 THEN GOTO 15© 

125 LET U = 115 4*2 * I NT «5*RND) 

13© POKE 16719,U 
146 GOTO 4© 

150 PRINT RT 0,©;" RCRB 

QU 0 LOGO 1 ' 

160 STOP 

208 LET M$=“2R817F3R2640FEDF200 
586212310FOFEEF200506212810FD545 
OE52R0C40011F00097RBC20087BBD200 
7E106212310FDE52R0G40©1B302097RB 
C200B7BBD2007E106212B13F0E5E122© 
17F36000604C506212310FD3580G110F 
53508QDE240C9” 

205 LET M$ = M$4*“2R0C4QQ122800906 
I5C506212310FDC1350510F505283683 
2310FB2B86160506212B10FDG1363E18 
F5062036032B18FBC9*’ 

218 LET M$ = M$4*“CD82402R037F363© 
062©2310FD22037F7E363406004FFE00 
2801C9CO824018E0 M 


8 * i 8 


215 LET M $=M $ +' 1 ED5B037F0621IBI© 
PD1R060O4PC9" 

220 LET M $ = M $ +.**2R0C4©015*2000922 
017P2R0C400173000922037PC9" 

225 LET ft=16514 
230 POR 1=1 TO 212 
235 LET E= 16£(CODE M$(l)-28)+C0 
DE M$(2) -26 
240 POKE R,E 
245 LET M $=M $ C3 TO ) 

250 LET R = R +1 
255 NEXT I 
260 RETURN 
300 5RUE "PONG 11 
310 RUN 


CfiPITULO II 





































































































































































































VAMOS ESTUDAR UM POUCO? 


Os dois programas mostrados neste capitulo irao ajudar o leitor nos 
seus estudos. 

(Afinal nem tudo e divertimento e lazer na vida). 

Jogo da Memdria 


0 Jogo da Memoria vai auxiliar o leitor a desenvolver sua memdria 
de uma maneira agradavel e divertida. 

0 programa foi elaborado para poder utilizar a caracteristica do 
Computador TK-85 e armazenar diversos grupos de dados diferentes em 
fita, e utiliza-los aiternadamente para deixar o jogo mais emocionante, 
mais variado. 

Se, porem, o leitor tiver algum outro computador compatfvel, que 
nao permite a armazenagem de dados, nao se preocupe, o programa ja 
tern incorporado uma serie de dados { no caso , nome de aves), que 
permite a sua perfeita utilizapao. 

Vamos a ele: 

Entre com o programa conforme listado abaixo: 


i REM 


j0G0S CLASSIC0S 


fcJOGO 


MEMORIA 


iC3-B.C.STEIN 
JUN 1934 

2 CLS 

3 PRINT "BEM UfNDO RO RT 2, 
m 1 t i *'[>XGITE Q U 




RU3UER TEOLfl t EU LHfc 

MOSTRO" . . E$ ; " . " • . *' DURANTE ALGUNS 
SEGUNDOS.” 

4 PRINT ,,-UOCE DEUE TENTAR R 
EPETIR TODOS OS TERMOS SUE UOCt 
LEMBPAP■" 

R PRINT AT 12,0;"0 JOGO COMEC 
A nrif-l 2 TERM OS E TERM IN A CO 

M 5 TERMQS , " I V y i ¥ ; " 

6 PRINT AT IS ,0; " i=ftl=g=t«k'5g3 . " 

7 PAUSE 4t4 
3 FAST 

10 LET D=L£N D$ 

15 LET B = -1 
20 FOR - 1 = 1 TO D 

25 IF D$(I)="/" THEN LET B=B+i 
30 NEXT I 

35 LET Z =2 

36 FAST 
38 CLS 

40 DIM A$ iZ,10 3 
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50 DIM ZCZ3 

60 FOR 1 = 1 Tfi z 

70 LET Z(I)sINT £RND#B3+1 

72 IF 1 = 1 THEN GOTO 60 

74 FOR N =2 TO I ‘ 

75 IF Z(I)=Z(N-I) THEN GOTH 70 

76 NEXT H 
50 NEXT I 

90 FOR 1=1 TH z 
100 LET 5=0 

110 LET 6$ = ,! ” 

120 FOR d=i TO Z(13 
14.0 LtT o = £> + i 

111 IF 1>1> S ThIn'lET M |2i G0T0 110 

160 NEXT . J 

165 LET S=S+1 

170 LET BS=B$+D$T6) 

180 LET 6=5+1 

190 IP THEN GOTO 210 

195 IF S>D THEN LET 6=1 
200 GOTO 170 
210 LET fi$m=B$ 

220 NEXT I 
230 SLOW 

24.0 FOR 1 = 1 TO Z 
250 LET X = INT <RND*21) 

260 LET Y=INT (RND*23) 

270 PRINT RT X,Y; A $ (I) 

272 FOR T =0 TO Z*4 

274- NEXT T 

276 PRINT RT X/Y'j " 

280 NEXT I 

290 rOR 1 = 1 TO Z*5 

300 NEXT I 

510 uLi> 

320 PRINT " ENfRE COM 05 TEPMH 
5 SUE UOCE MEMORIZOU, DEPOTS 
ENTRE N/L.” 

34-0 DIM fl (Z:i 
34-5 DIM C$(10J 
347 LET 6=1 
350 FOR 1=1 TO Z 
355 LET F =0 
360 INPUT C$ 

375 IF C$=“ “ THEN GOT 

0 4.30 

380 PRINT RT 2+1,2;CS; 

390 FOR J=i TO Z 

480 IF A$(J)=C$ THEN PRINT , “CE 
RTO. “ 

410 IF fi$ >. Jj =C$ THEN LET F = 1 
420 NEXT J 

430 IF NOT F THEN PRINT RT 2+1, 
16;"ERRADO" 
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4^5 IF NOT F THEN LET G =8 
440 NEXT I 

445 IF G THtN GOTO 580 
450 PRINT 

4fi0 PRINT TAB 2;“R5 PALAURHS Cc 
RTR6 FORRM:“ 

462 PRINT. 

465 LET F=0. 

470 FOR 1=1 TO Z 

475 LET F=F + i . . _ 

477 JF F = 1 OR F =3 OR F=5 THtN P 

PINT " 

480 PRINT fl$ CD , 

490 NEXT I 

500 PRINT SE DANuU . . .' 

575 GOTO 680 
580 FOR 1=1 Tu i 0 
590 NEXT I 
595 CLS 
600 LET Z=Z+1 
F 10 IF Z >6 THEN GOTO 640 
620 FR5T 


530 GOTO'40 _ 

F,40 PRINT " UOCE MEMORIZOU 8 TE 
RMQS, MUITO BEM..." 

F.45 IF K = 1 THEN GOTO 700 
§50 PRINT 
665 PRINT 
670 PRINT 

F,S0 PRINT " UOCE OUER JOGRR NOU 
RMENTE?(5/NX” 

685 INPUT U$ 

590. if 00DE US=56 THEN GOTO 35 
695 PRINT RT 1110; “TCHAU ME5M0 


697 5T0P 

780 PRINT RT 5,1;“UOCE'OUER" 

702 PRINl AT 8,1;"l. JOGRR CuM 
ni ITROS DADOS . " 

704 PRINT RT 10,1;"2. REPETIR 0 
.IOGO COM •YES;”." 

706 PRINT RT 12,1;"3. PflRAR DE 

» | {”*j jPj p 11 

710 IF INKEYS="1" THEN GOTO 123 

0 ■ ■ 

71 F. IF INKcY$ = "2‘' THEN GuTu i 

720 IF INKEY$ = "3" THEN. GOTO 692 
725 GOTO 718 

750 LET K=0 _ 

760 6RUE "JOGO DR MEMORIgj" 

770 IF K=1 THEN GOTO 1240 
780 IF K=2 THEN GOTO 3000 
800 PRINT RT 3,14;“MENU” 


THEN. GOTO 692 



805 PRINT PT 4,14.; 1 ^ 

810 PRINT PT 5,4-; “UOCE ESTP USP 
NDO : :: 

815 PRINT PT 10,1;“ 1, UM TK-35 

COM PROUI 

UO 05 DR DOS . 51 

820 PRINT PT 14,1;“2. OUTRO COM 
PUTPDOR COMPPTIUEL." 

830 IP IMKEY$ = " 1 " THEN GOTO 300 
840 IF INKEY$s"2" THEN GOTO 300 

0 

t*50 b'UT U •!« b 0 

900 CL5 

902 LET K=1 

90S PRINT “UE RSPO DO" ; PT 1,8; ”8 

18 , “PPRP 0 5 TK-35 CO 
M-USO DE PROUIUO DE DPDOS.“ 

910 PRINT ,,** INFORME OURNTOS GR 
UPOS OE TERMOSUOCE IRP RRMRZENRR 


915 PRINT , , VENTRE COM 0 NOME 0 
0 GRUPO , SEGUIDO OE “ “ : 18 " , 

OEPOIS ENTRE COM OS .TERMOS UM 

R UM SEPPRPOOS POR “ " , V “ . " 

920 PRINT , “PRMRZENE EM FITP C 
POP G R U P 0 IN F 0 R M P N 0 0 P 0 C 0 M P 

UTPOOR P NUMERPCPO DO CON 

TPDOR DO GRPUROOR . “ 

925 PRINT t ,“NRO SE PSSUSTE, 0 
COMPUTPOOR UPI fl.JUOP~L0 NP Tfl 

REFP•“ ‘ 

930 PRINT .."DIGITE OURLOUER TE 
r:LP , ” 

"535 PRUSE 4E4 

y 4 0 L* L o 

945 PRINT "QTOS. GRUPOS OE TERM 
OS UOCE UPI RRMRZENRR ? ,# 

950 INPUT U 

952 CL5 

957 DIM N$(10 5 103 

958 DIM 5(10) 

959 FOR M =1 TH u 

960 PRINT "OE 0 NOME DO st ; M; '* , 

G P U P 0 0 E TERM n - l ‘ 

965 INPUT N$(M) 

967 PRINT PT 8,2;NS CM) 

970 PRINT PT 3,0;“OUPL P NUMERR 
CRO DO CONTPOOR 00 SEU GRRURO 


CPO 

00 c 

ONTRDOR 

OR, 

P H R H 

0 

M; 

975 

IMP 

UT 

S (M) 

977 

PRINT 

PT 3 

980 

FOR 

T = 

0 TO 

985 

HEX 

T T 


990 

CLS 



1010 

DIM 

0$ 

(500 


1020 PRINT "ENTRE COM 0 NOME DO 
u-pi ipQ SEGUIDO DE : " " v DE 

POIS ENTRE COMOS TERMOS SEGUIDOS 

0 £ Ml, - MU It 

1025 PRINT /,"ENTRE N/L S0MENTE 
NO FINAL." . _ 

1027 PRINT "UEUfi 0 EXEMPLO DR LI 
NHfl 3005 DO PROGRRMfl." 

1030 INPUT D$ 

104-1 OLS 

1042 PRINT "RGORfi OOLOOUE SEU GR 
RURDOR EM ""REC "", E ENTRE N/L 

1044 INPUT 0$ 

1050 LET Z=LEN D$ 

1060 LET Z$="D" 

1070 LET EC =USR 8288 

1080 IF EC =0 THEN PRINT “OK" 

1100 IF EC <>8 THEN PRINT "ERRO = 

“; BO 

1190 GOSUB 4000 

1200 NEXT M 

1210 FOR T=0 TO 20 

1220 NtXT i 

1230 OLS 

1235 GOTO 5000 

1240 P RI NT ' ‘ U 0 C E G R R U 0 U " i U; 1 *. G F: 
UPOS DE TERMOS." 

1250 PRINT "UEUR OS NOME5 E RS S 

URS POSICOESNO CONTPDOR DE StU G 

H U H C 1 1—t Fl . t t i 

1260 FOR'M=1 TO U 

12 70 PRINT 1 ’ ‘;N$(M) .S (M 5 

1280 NEXT M , * 

1285 PRINT RT 18,4;"TESTE RGORfi 
0 RESULTRDO" 

1287 PRINT , “COLOOUE 0 GRRURDOR 
NR CONTRGEM tSCOLHIDfl. tNTRE 
“ plh'y " ** E M /L * M 

1292’ IF' INKEY$ = ,, “ THEN GOTO 1292 
1294 OLS 

2010 DIM D$«500i 
2020 LET Z5="D" 

2030 LET EC =USR 8305 

2040 IF BC=0 THEN GOTO 205& 

2045 GOSUB 4808 

2050 PRINT "UOCE COMETEU 0 ERRO 

";EC;".","REPITfi fl OPERRCRO." 

2051'SLOW 

2853 G OT 0 124 8 

PARK GOSUEt Si508 

2050 GOSUB 4888 

2878 GOTO 1 

3880 CLS 

3802 LtT K =2 
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:_:005 LET 0$ = “AUES : PINTASSILGO , PO 
MBA j TUCANO,GAIUOTA , PARDAL,GARCft, 
CEGONHA,PAPAGAIO,PERIOUITO,CORUn 
j CuRUJA, BUR IT I, CQTOUIfi, UIRAPS IR! l, 
ARARA , ROLR , BEM TE UI, AUESTRUZ /" 
3010 GOSUB 3500 
3020 GOTO I 
3500 FOR N = 1 TO 10 

3510 IF D$(N)=“THEN GOTO ";!=T;0 
3520 NEXT N 

3530 LET E$=D$ C TO N-l) 

354:0 RETURN 
4.0O0 SLOW 
4005 CLS 

4010 FOR T =0 TO 10 . 

8,6; '••DESLIGUE 0 GR 

AUhDuR * 11 

4030 PRINT AT 3 , S•'SI=P»M*MgSS3=5 


DESLIGUE 


N U 3 


4040 NEXT T 
4050 OLE* 

4060 RETURN 

5000 PRINT "ENTRE “"REC"" NO rm 
UADOR E NxL." 

5810 PRINT .SALUE"" 0 PROGRAMA 

DEPuIs DOS DADOS." 

5020 PAUSE 4E4 
5030 CLS 
5040 GOTO 750 


Uma vez terminado.armazene-o em fita entrando GOTO 750 (aten- 
pao, nao entre GOTO 760). Esta gravapao sera uma gravacao mestre; voce 
ira fazer outra gravapao mais tarde se estiver usando um TK-85. 

0 programa se inicia perguntando que Computador voce esta 
usando. 


MENU 


U O C tz E ST ft U S fl N D 0 : 


1. UM TK-85 

! -'OM ARyUIUO DE DADOS. 


2. OUTRO COMPUTADOR COMPATIUE: 
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Se voc§ escolher a Oppao n° 2 vera as instrupoes abaixo e entran¬ 
do NEW LINE podera jogar imediatamente. 


BEM UINDO AO 


UOGQ; 


MEMORIAI 


DIGITE OUALOUER TECLA 
E EU LHE M05TR0 
AUES, 

DURANTE .ALGJJNS SEGUNDOS. 

UOCE DEUE TENTAR REPETIR TODOS 
OS TERMOS OUt UuCE LEMBRhP! . 

n .JOGO COMECA COM 2 TERMOS 
E TERMING COM 6 TERMOS. 


Se, porem, voce estiver usando um TK-85 e escolheu a 
entao aparecem as instrupoes conforme abaixo: 


Oppao n? 1, 


UERSAO DO 


iJOGO:- 


MEMORIAI 


PARA 0 TK-85 COM USO DE AROUIUO 
DE DADOS. 

INFORME OUANTOS GRUPOS DE TERMOS 
UOCE IRA ARMAZENAR. 

ENTRE COM 0 NOME DO GRUPO/ 

SE GUIDO DE " : " , DEPOIS ENTRE 
■COM OS TERMOS UM A UM SEPARADOS 
POR " 

ARMAZENE EM FITA CADA GRUPO, 

INFORMANDO AO COMPUTADOR 
A NUMERACAO DO CONTADOR 
DO GRAUADOR. 

NAO SE ASSUSTE, 0 COMPUTADOR 
UAI AJUDA-LO NR TAREFR. 

DIGITE OUALOUER TECLA. 


Siga as instrupdes rigorosamente para que o programa funcione di- 


reito: 


1) Informe quantos grupos de dados diferentes voce ira fornecer. 

2) Agora: 
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DE 0 NOME DO 1. GRUPO DE TERMOS 

exemplo: INSETOS 

DUAL P, NUMERRCRO DO CONTPDOR 
DO SELl GRRUflDOR, PPRP D 1 GRUPO? 

3) Verifique no contador do seu gravador, onde ja devera estar colocada a 
fita que ira armazenar os dados , qual 6 a numeragSo e informe o valor ao 
computador. 

ENTRE COM 0 NOME DO GRUPO 
SEGUIDO DE ": M ., DEPOIS ENTRE COM 
OS TERMOS SEGUIDOS DE " , ,r , 

E N T R E N / L S 0 M E NT E N 0 FIN R L . 

UEUfi 0 EXEMPLO DR LINHfi 3000 
DO PROGRRMfl. 

4) Entre agora novamente com o nome do grupo {"insetos", no nosso ca- 

so), seguido de e entre com os nomes de insetos. 

Quanto mais nomes voce entrar melhorficara o jogo. 

Atengao, cada inseto deve estar separado do outro por uma virgula. 

5) Nofimentre com NEWLINE. 

6) Acione "REC" no gravadoge depois NEW LINE. 

7) 0 programa ira armazenar no gravador o arquivo de insetos (cuidado 
comas picadas). 

8) Repita o procedimento ate completar a quantidade de grupos diferentes 
de dados que voce escolheu. 

9) Agora "Salve" o programa novamente (apos os dados). 

Pronto, trabalho concluido. Agora vamos a diversao. 

Quando voce quiser jogar, carregue o programa "salvado" por ultimo. Ele 
iniciar-se-a com a seguinte tela: 

UOCE GRRUOU 3 GRUPOS•D TERMOS, 

UtUfi OS NOMES E RS SUPS POSICOES 
NO CONTPDOR DO.SEU GRPUPDOR. 


RUT0M0UEI5 751 
INSETOS 793 
UOGPDORES 802' 


TESTE RGORP 0 RESULTRDO 


COLOSUE 0 
ESCOLHIDR. 


GRPUPDOR . NP. CONTRGeM 
ENTRE “PLPY ", E N/L. 


32 


0 programa permite escolher com que dados voce quer jogar. Esco- 
Iha e coloque o gravador na numeragao indicada.Entre com "NEW LINE" 
e "PLAY"0 programa "carregara" os dados para a memoria e o jogo co- 
megara. 

0 programa permitira a voce carregar novos* dados se voce tiver 
acertado todos os seis nomes da jogada atual. 

Bom divertimento. 

0 Professor 

0 Programa foi criado para auxili^-lo a memorizar pares de informa- 
goes, como por exemplo: paises e suas capitals, elementos qutmicos e seus 
simbolos, palavras em portugues e suas tradugbes em ingles, etc.' 


1 REM 0 PROFESSOR 

tKflDUZIDO E PDflPTRDO 
• POR 'B. C. STEIN 
REUISPO MR I 1984- 

2 REM PRRR “RUN" 0 PROGRRMfl. 
ENTRE “GOTO 100“ 

3 REM PRRR ENTRflR COM NOUOS 

RD0S 0U PRRR MRNIPULflR 0 PR0GRR 
MR, ENTRE “GOTO 1000" 

10 LET B=INT (RND*TOT3+1 
1 cL L O 

13 PRINT PT 4,0;"-DIGITE 0 PRR 
fl RETORNRR RO McNU-" 

14 RETURN 

15 LET D$. = INKEY$ 

IS IF D$="0" THEN GOTO 998 ' 

17 RETURN 

28 PRINT “NESTA OPCPO, “;C$;“ 


2 

RETURN 


Opr 

• z ; 

PRINT 11 UOCE 

: j 

C - * I o o 

25 

‘return 


30 

PRINT TRB 3; 

"UOC 

o 1 
00 

RETURN 

PRINT RT 

); “0 


182 PRINT T$ 

104 PRINT RT 10.8;“POR FfiUOR, E 
NTRE COM 0 SEU NOME." 

118 INPUT C$ 

115 CLS 

128 PRINT RT 4,8;“COMO URI ";C 

± * : 1 -T- :: 

$ .« . 

121 PRINT s ‘nU UOU HJUDRR unr.E ft 
CONHECER 

122 PRINT *DRDO/R UM/R M$; “ 
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12*3 PRINT "UOCE IRA APRENDER >«E 
U/SIJR 

124.' PRINT N$; “ ; E UICE-UERSA . 

126 PRINT 

127 SLOU 

12S PRINT TAB 18;“MENU" 

129 PRINT 


138 PRINT 
11 

131 PRINT 

132 PRINT 

t 2 

133- PRINT 

f i 

134- PRINT 


1. REUISAO DR LIST 

2. TESTE PRAT ICO :| 

J« TEoTE DE RhkIuE 

4 -« u 0 PIH R u o D H D u o 
5 ' FRZER HOUR LIST 


135 PRINT 

136 PRINT “ESCOLHR UMR DAS OPCO 
ES ACIMA," 

14.8 INPUT A 

14-2 IF A < > 1 AND A<>2 AND.A<>3 A 
ND A 0 4. AND A<>5 THEN GOTO 148 
145 CLS 

158 GOTO R*208 

208 PRINT AT 5,0;" -REUIS 

AO DR LISTR-“ 

205 GOSUB 28 

210 PRINT "EU UOU MOSTRAP UM/UH 
A " ; N$ ; " , ** 

211 PRINT “E RESPECTIUO/A “;M$: 

tit: 

c 

212 PRINT “DEPOIS DE MO STRAP OS 
11 ; TOT; " ITEMS. PASSAREI R RELA 

CAG AO CONTRRRIO." 

213 PRINT “ ESCOLHA UM NUMERp D 

E 0 H y i 0 *" P H -I 1 0 H b E M M M J. H H P' 

IDR, 9-PASSAGEM MAIS LEN 

Tfi. " 

215 INPUT Z 

217 IF Z<0 OR Z >9 THEN GOTO 215 
228 FOR A = 1 TO TOT 
225 G 0 S U B 12 

238 PRINT AT 18.2 ; 5$ i A) ; " " ; 

235 FOR N =8 TO 4+2*Z 

236 NEXT N 
248 GQSU5 15 
245 PRINT A$ (R) 

258 FOR N =8 TO 4+2*Z 

251 NEXT N 

255 GOSUB lb 

258 NEXT R 

265 FOR A = 1 TO TOT 

278 GOSUB 12 

275 PRINT AT 10.2; fi$ CR) ; " !! ; 

288 FOR N =8 TO 4 + 2*Z 
281 NEXT N 
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2 SF ran SI IB 15 
298 PRINT B$(A) 

295 FOR N =8 TO 4+2*Z 

296 NEXT N 
:-;00 GOSUB 15 
385 NEXT R 

is 18 y uT u h iy 8 

400 PRINT AT 5,0;" -TEST 

E PRAT ICO -“ 

405 GOSUB 28 

418 PRINT “UOCE RESPONDERR R 38 
QUESTOES: " , " QUEST AO 1 

R 15" 

411 PRINT “EU LHE DOU UM/R M$ 

412 PRINT “UOCE ENTRR COM SEU/S 

t |p " • Kj ± ; * ! ** 

”413* PRINT “ OUESTAO 16 

R 38“ 

414 PRINT “FAREMOS 0 INUERSO." 

415 PRINT "ENTRE "“NEU LINE"" P 
RRR COMECAR" 

417 LET U =8 

418 INPUT Z$ 

419 IF F2 THEN GOTO 435 
428 FOR A=1 TO TOT 

425 LET EJ(fl)-sCHR$ 0 
438 NEXT R 
435 FOR A = 1 TO 15 
448 GOSUB 18. ‘ 

445 IF E$ CBS = “X“ THEN GOTO 448 
447 PRINT AT 9,8.;“0UAL E 0/A 
N4;“ DO/A" 

458 PRINT AT 18.8;.A$(B) 

468 INPUT D$ 

462 G 0 5 U B 2 5 
4 . A Fi A n 3 u E* 16 

478 IF LEN D$=L2 THEN GOTO 475- 

472 LET D$=D$+“ “ 

473 GOTO 478 

475 IF D$ =B$ CB) THEN GOTO 498 

476 PRINT “UOCE ERROU, 0 CERTO 
E* “ 

477 PRINT TAB 8;B$(5) 

478 FOR N =8 TO 35 

479 NEXT N 
488 GOTO 497 

490 IF NOT F2 THEN LET E$ CB3= ”X 


492 GOSUB SO 

493 LET U=U+1 

495 FOR N =0 TO 16 

496 NEXT N 

497 NeXT H 

500 FOR fl=i TO 15 
505 GOSUB 10 

510 IF E$i:B3="X“ THEN GOTO 505 
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512 

PRINT 

R ! 

MS; “ 

11 

J 


513 

PRINT 

• * 

t • 

cr cr 
! J. w 

PRINT 

RT 

cr ■-> \7> 
c. 

INPUT 

D $ 


rhxN I L*'J« It 1 / R ** ‘ W ± * J ‘ cr •» 
fif PRINT AT ^ 

5 HO INPUT D$ 

6 2 5 G 0 S U B 2 5 
5 H 7 Ls u S U B 16 

5?| IF LEN D$=L1 THEN GOTO F.4.F. 
bb 5 LtT D$=D$ + " “ ~ ~ 

540 GOTO 530* 

5^5 IH p$=A$(B) THEN GOTO 560 
® PRINT "UuCE ERROU, 0 CERTO 

551 PRINT TAB S;A$(B) 

553 FOR N =0 TO 40 
5b4 NtXl M 
555 GOTO 575 
550 GOSUB 30 

565 IF NOT F2 THEN LET E$ (3) = “X 

i i 

570 FOR N=0 TO 20 

571 NEXT N 

572 LET U=U+1 
575 "NEXT H 

cr w rs “• i c 

w » i„j vl* «... ^ 

584 SLON 

535 PRINT RT 9,0;Cg;“, UOCE FEZ 
“ ;Uj“ PONT os. i! 

585 PRINT 

590 PRINT “DIGITS “ 11 NEW LINE“ “ 
PRRR 0 MENU," 

592 IMPUT'D* 

Q F k HT H Q Q 0 

500 PRINT RT 5 , 0 j “- TESTE 

DE RflPIDEZ-*’ 

505 GOSUB 28 

610 PRINT “UOCE TEN 58 SEGUMDOS 
PRRR lNTRhRCOM 0 MRTOR NUMERO P 
0S51UEL DE RE5P0S'TRS , ' 1 
511 PRINT M EU DOU UM/R “; Mg; ** , “ 

612 PRINT “UOCE ENTRR SEU/SUR “ 
; N $ ; “ . “ 

513 PR1HT 


614 PRINT 

" -Hi PONTO POR 

RtSh* 

t“i *3 

i t : 

TR CERTfl, 

-1 PONTO FOR 

RESP 

0 5 

TR ERRRDR, 

8 PONTOS SE 

l i %~t £T 

w i_: I 

N 

flO SOI JBER 
INE *' “ . “ 

n lNTRRR 

“ “NEU 

1 

515 PRINT 
616 PRINT 

“ENTRE ““NEU L 

INE “ “ 

w 


RRR 

COMECRR“ 

617 

LET U=8 

b 10 

F R b I 

CZ i 

Dx? 

INPUT Dg 

620 

r.«“j w* s— ci .< 

r\ l_ j. u* h* 
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625 

POKE 164' 

37,0 

538 

GOSUB 10 


548 

PRINT AT 

10 > 

545 

INPUT D$ 


C «* 

w m- r 

IF PElK 

1543 

<62 

500 THEN 

GOTO 


658 IF D$ = M ‘“ THEN GOTO 538 
555 GOSUB 15 

F,F7 JF LEN D$=L2 THEN GOTO 558 
558 LET Dg-D$+“ “ 

F.59 GOTO 557 

650 IF DS<>B$(B) THEN LET U=U-I 
555 IF Dg=Bg CB) THEN LbT U=U + 1 
578 GOTO 538 

500 LPRINT TRB (32-LEN TS)/2;T$ 


828 LPRINT 

830 FOR R = 1 TO TOT 

848 LPRINT Rg(R5,B$CRj 

858 NEXT H 

850 CLS 

988 GOTO 398 

998 CLS 

991 PRINT RT 5,14;““ 

9 9 5 G OT 0 12 5 _ 

9 9 g 5 w U E “0 P R 0 F E S S CDS ‘ ! 
y y 7 y uT u 18 8 

999 CLS 

1800 PRINT RT 6,8;“ROTINR PRRR C 
RIRCR0 t, REUISH0 Diz DR D 0S * !: 

10 0 Ft G* OT 0 13 c! 3 

1808 LET F1=© 

1809 PRINT RT 18,5;“ENTRE^COM 0 

TITIJLO • DO StU PROG 

RRMR . “ 

1818 INPUT Tg 
1812 LET F2 =8 
1 01F “• L F 

102O PRINT RT 9,0;"ENTRE COM 0 T 
ITULO (NO SINGULAR)DO FRIMcIRO G 
RUPO DE ITEMS DE SUA RELACAO, 
DE PREFEREMCIA OS ITENS MRIS LO 
NGOS,” 

1030 INPUT M$ 

10 5 ■_■ L 6> 

10 4- 0 P RI NT AT 9 0.; " 0 U A NT 0 S DIG IT 
OS TERR A PALAURA MRIS LONGA DO 
PRIMEIRU LHUPU DE xTEN6*: 

1050 INPUT Li 
1055 CLS 

1060 PRINT AT 3,. 0.; "ENTRE COM 0 T 
IT l f L n ! N 0 SIN G U L A R) D 0 5 E G U N D 0 G R 
UPO DE ITENS." 

1070 INPUT N $ 

1073 CLS 




1075 PRINT PT 9,0;“OUPNTOS DIGIT 
05 TERP P PPLPURP MflIS LONGA DO 
SEGUNDO GRUPO DE ITENS?" 

1080 IHPUT L2 
1085 CL5 

1090 PRINT PT 9,0;"GUPNTQS ITEN5 
NO TOTAL: TERP P SUP RELPCPO'"' 
1095 INPUT TOT 
1180 CL5 

1185 PRINT PT 5,0:"TITULO-" 

•i -i .rHw nr. TNT T 4; 

1110 PRINT "TITULO DO 1. GRUPO D 
E ITEMS:- ”;M$ 

1115 PRINT " MFIIOR PALAURA DO 1 . 
GRUPO: " : !_l; “ LETflflS. “ 

1120 PRINT "TITULO DO 2. GRUPO D 
E ITEMS:- N$ 

1125 PRINT "MflIOR PALAURft DO 2. 
GRUPO : - " L2; " LETflflS . " 

.1130 PRINT "TOTAL DE ITEMS Dfl RE 
LACAO: - “ ; TOT 

1135 PRINT 

1140 PRINT "AS INFORMACOES ESTAO 
CERTAS-S/N?" 

1142 INPUT ZS 

1145 IF Z$="S" THEN GOTO 1151 
1147 IF Z$="N" THEN RUN 999 

1150 IF Z$ <■> “5” OR Z$ O "N" THEN 
GOTO 1140 

1151 IF TOT<40 THEN LET F2=l 
1160 DIM fl$(TOT, L15 

1165 DIM B$ (TOT , L 2 ) 

1170 DIM E$(TOT) 

1175 CLS 

1185 PRINT AT 10.0;‘'ENTRE COM n 
1 . ITE M-D 0 1 . GRU P0 DEP 01 S C 0 M 0 
1 ■ ITEM DO SEGUNDO GRUPO '• ENT RE 
COM 0 2 . ITEM DO 1. GRUPOn 2,' 
ITEM DO 2. GRUPO, ' E'ASS 

IM POR DIANTE.“ 

1190 FOR A=1 TO TOT 

1200 IF NOT FI THEN GOTO 1250 

1205 S C R0L L 

1210 PRINT M$ASffli 
1215 SCROLL 

122© PRINT N$ : “— “ ; B$ (fl'i 
1225 INPUT ZS ' 

1230 IF Z$ = " " THEM GOTO 1290 

1250 SCROLL 

1255 PRINT M$; " — ": 

1260 INPUT A $(A 3 
1265 PRINT A $(A) 

1270 SCROLL 
1275 PRINT N$ 

1280 INPUT B$(A) 

1285 PRINT B$ffl) 
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1290 NEXT ft 
] f— 1 y 2 L - L C' 

1295 IF FI THEN GOTO 1320 
i38 0 PR XNT hT 7,8;" NOUAMU c* H 
GORP REUER CPDA PAR DE ITEN5* 

QUPNDO ELES 
PPPRECEREM NP TELA ENTRE ,,M NEU 
LINE ,,M ,SE ESTIUEREfi C0RRET05 , 


1381 PRINT u ENTRE ""X"", E : "N 
EU LINE"", SE ES TIUEREM ERRPDO 


\Z 11 
v 1 t 


1302 PRINT NESTE CASO, UOLTE 
fi EMTRAR COM 0 ITEM." 

1305 LET FI=1 
1310 GOTO 1190 

1320 PRINT AT 5,5.;"U0CE PODE AGO 

Dfl • 

1328 PRINT 
PRINT 

1335 PRINT "1. CRIPR UM NOVO PRO 
UIU 0 , “ 

1336 PRINT "2. REFPZER P REUISAO 
DO AROUIUO «" 

1338 PRINT "3. 11 “SPUE"" 0 PROGRP 

MP « " 

1339 PRINT 

1348 PRINT "ESOOLHA UNA DPS OPGO 

, " 

1345 INPUT P 
lu4b CLv? 

1347 IF A=3 THEN GOTO 1378 

1348 IF A=1 THEN RUN 1807 
1358 IF A=2 THEN GOTO 1388 
1355 GOTO 1330 

1368 CLS 

1378 PRINT AT 10,8;" flCIQNE SEU 
GRPUPDOR NP POSICAO ""REC- M " . E 
ENTRE ‘“‘NEW LINE" " . ,r 
1388 INPUT-Z$ 

1390 IF W 'z$ = “" THEN GOTO 996 
1400 STOP 


Uma vez digitado o programa, proceda da seguinte forma: 
Parte I: ManipulapSo do Programa 

1) Se voce estiver ho modo FAST, volte ao modo SLOW 

2) Nunca, ( nunca mesmo) entre com RUN 

3) GOT01000 

4) Aparecera o "MENU" com 3 opgSes 
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ft U TIN H KHR h C ft! X P. C H 0 £ K £ U X S P 0 
D£ DPDOS, 


1 , 



w » 


CRIAR Uf-1 NOVO ARQUIVO. 

RtFfiZtR fi RcUISAO DO ARQUIVO. 
"SAVE” 0 PROGRAMA. 


ESCOLHA UMR DAS OPCOES. 

5) Escolha a oppao numero 1 e NEW LINE 

6) Siga as instrucoes do programa: 

a) escolha o titulo; por exemplo: PAISES E SUAS CAPITAIS, (este sera 
tambem o titulo com o qual o programa sera "salvado" mais adian- 
te). 

b) escolha o titulo (no singular) da primeira serie de dados: PAiS (no 
nosso exemplo). 

c) Fornepa o numero de letras da palavra mais comprida, por exemplo: 
15. 

d) e e) Siga o mesmo procedimento para o segundo grupo de informa- 
coes por exemplo: CAPITAL e 15 digitos. 

f) Entre agora com o numero de pafses e capitais que voce quer listar, 
por exemplo 60. 

7) 0 programa entao Ihe auxiliara a fazer uma revisao dos dados entrados 
ate agora. Se houver algum erro, entre "N" (nao) e volte a fornecer os 
dados solicitados. 

8) Se estiver tudo certo, entre "S" (sim), comece a fornecer ao 
computador os dados, (no nosso exemplo, paises e suas respectivas capi¬ 
tais), ate completar a serie. 

Se voce perceber que cometeu algum erro, toque em frente. Voce 
tera oportunidade de fazer a correpao por ocasiao da revisao. 

9) Apos entrar com todos os pares de informapoes, o programa auxiliara 
voce a fazer uma revisao. A cada par de dados entre "NEW LINE" se a 
informapao estiver correta. Entre "X" se estiver errada e corrija a informa- 
pao, entrando novamente com o pais esua capital. 

10) Ap6s a revisao o programa volta ao Menu. Neste ponto escolha a 
oppao 3. Coloque seu gravador em "REC" e grave (SAVE) o programa em 
fita. 

Parte II: Usodo Programa 

Depois de todo o nosso trabalho e dedicapao (ufa. . .), estamos 
agora prontos para usufruir das aulas do nosso professor cibernetico. 

1) Apos ter "salvado" o programa em fita,ou quando, numa outra opor¬ 
tunidade, voce passa-io da fita para o gravador usando o comando 
LOAD "PAISES E SUAS CAPITAIS" (no nosso exemplo, e claro), ele ini- 
ciar-se-a automaticamente convidando voce a fornecer seu nome. 

2) A partir desse momento, o tratamento entre o computador e voce sera 
personalizado. Ele se dirigira a voce e Ihe mostrara o MENU de opp6es que 
voce tern para memorizar os "PAISES E SUAS CAPITAIS"; 
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COMO UhI 1 

'iZ u u U U H J U D H p! vUL-E H L* U i *■! H £ L- C K 
PRISES E SURS CRPITRIg. 

D fi D G / R U r-1 / R P RIS , 

UfiCE IRR RPRENDER SEU/SUP 
CAP ITRL E U ICE - VERSA . 

MENU 

1. REVISAO DR LISTR 

2. TESTE PRATICO 

3. TESTE DE RRPIDEZ 
4-. COP IRR OS DADOS 
5. FAZER NOVA LISTR 

ESCOLHR UMR DRS OPCOES ACIMA 

3) Escolhendo a oppao 1: revisao da lista, voce podera rever as capitais e 
seus respectivos paises e vice-versa. Voce pode escolher 10 velocida- 
des de revisao sendo 0 a mais rapida e 9 a mais lenta. Para interromper a 
revisao entre "Q" e "NEW LINE", que tambem interrompera as opcoes 
2 e 3 e retornara voce ao MENU. 

4) Na opcao rtf 2: 

-TESTE PRATICO- 

NESTA OPCRO, 

VOCE RESPONDERR R 30 OUESTOES 
U U iz. ST H 0 I H IS 
EU LHE DOU UM/R PRIS 
i.j 0 CE E NT R fi C 0 M £• E U / S U A U A F IT H i_ « 

OUESTRO IS R 30 
FAREMOS 0 INVERSO. 

ENTRE "NEW LINE” PARR COMECRR 

0 computador escolhera aleatoriamente 15 paises e voce devera 
entrar com as suas respectivas capitais. 

Depois ele escolhera 15 capitais e voce devera fornecer os respec¬ 
tivos paises. 

No fim voce sera informado sobre quantas respostas corretas deu, 
No caso de haver mais do que 40 itens fornecidos ao computador, ele nao 
repetira a pergunta cuja resposta dada estiver correta. 

5) Naopcao3, 

-TESTE DE RRPIDEZ- 

NESTR UPUHU/ _ 

VOCE TEM 60 SECONDOS PARA ENTRAR 
COM O MfilOP NUMERO POSSIVEL DE 
RESPOSTAS. 

EU DOU UM/R PAIS, 

VOCE ENTRfi SEU/SUR CAPITAL. 

+1 PONTO POR RESPOSTA CERTfi, 

-1 PONTO POR RESPOSTA ERRADA, 

O PONTns SE VOCE NAO SOUSER 
E ENTRAR "NEtJ LINE”. 

ENTRE "NEW LINE” PARA COMECRR 
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que e um teste de rapidez, voce devera fornecer em 60 segundos o maior 
numero possfvel de capitais para os pafses perguntados. Cada resposta 
certa vale 1 ponto, cada resposta errada voce perde 1 ponto. Se voce so. 
entrar "NEWLINE" , nao perde nem ganha pontos. 

6) A op$3o 4 permite listar na Impressora todos os pafses, e suas capitals, 
armazenados na memoria. 


PRISES E 

SUflS ChPIThI§ 

BRASIL 

BRFISILIfi 

ARGENTINA 

BUENOS Pi IRES 

COLOMBIA 

BOGOTA 

PERU 

LIMA 

CHILE 

SANTIAGO 

VENEZUELA 

CARACAS 

BOLIVIA 

LA PAZ 

ECUADOR 

QUITO 

URUGUAI 

MONTEVIDEO 

PARRGUAI 

ASSUNCAO 

PANAMA 

PANAMA 

NICARAGUA 

MANAGUA 

HONDURAS 

TEGUCIGALPA 

CUBA 

HAVANA 

HAITI 

PORTO PRINCIPE 

MEXICO 

MEXICO 

ESTADOS UNIDOS 

WASHINGTON 

CANADA- 

OTAUA 

ALBANIA 

TIRANA 

ALEMANHA 

BONN 

AUSTRIA 

UIENA 

BELGICA 

BRUXELAS 

BULGARIA 

SOFIA 

DINAMARCA 

KOPENHAGEN 

ESPANHR 

MADRID 

FINLANDIA 

HELSINKI 

FRANCA 

PARIS 

GRA-BRET A NHA 

LONDRES 

GRECIA 

ATENA3 

HOLANDA 

AMSTERDAM 

HUNGRIA 

BUDAPEST 

ISLANDIA 

REYKJAVIK 

IT HL Ih 

ROMA 


7) E claro que voce pode preparar diversas "aulas" diferentes com o "PRO¬ 
FESSOR" e armazenar cada uma, com seu respectivo nome, em fita. Es- 
colhendo a oppao 5 o programa volta ao modo que permite alimenta-lo 
com novos pares de dados. 

Se voce quiser armazenar o programa em fita sem aula alguma, su- 
giro que, apos ter entrado com o mesmo no computador, armazene-o em 
fita, entrando SAVE "0 PROFESSOR". Quando, em outra ocasiao, voce 
quiser usa-lo para preparar uma aula entre LOAD "O PROFESSOR", apos 
tg-lo carregado no computador, entre "GOT01000". 

Boa aula e boas notasl 


CfiPITULO III 
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PROGRAME EM LINGUAGEM DE MAQUINA SEM 
ENTENDER DE LINGUAGEM DE MAQUINA 


Este capitulo vai ensinar ao leitor como elaborar prbgramas com ro- 
tinas em Linguagem de Maquina, sem precisar necessariamente entender 
esta linguagem. Existe um sem numero de programas elaborados em 
BASIC que utilizam rotinas em codigo de maquina para conseguirem efei- 
tos especiais. 

0 que vamos explicar e como utilizar estas rotinas que sao coloca- 

das numa primeira linha REM do programs. 

Se o leitor gostou do efeito de uma rotina deste tipo, contida bum 

programa em fita cassete, proceda assim: 

1) Carregue o programa no seu Computador. 

2) Entre com um dos dois programas abaixo (cuidado: use a numera^ao 
das linhas que nao interfiram com os numeros de linha do programa). 
Programa para quern nao tern impressora: 

9910 PRINT "END. INICIflL?" 

9915 INPUT h 
9 92 0* C L S 
q *q cl 5 o U R 31— L 

9930 print ”ENDERECO";TAB 10;"CR 
R.RCTER";TAB 21;"CODIGO“ 


9 935 

FOR N=R 

T 

; i ; 

994-0 

SCROLL 


9945 

PRINT N 

> T R 

TAB 2 

3;PEEK 

Ki 

9950 

FOR T =0 

TO 

9955 

NEXT T 


9960 

NEXT N 



MyUid tJilUc; uuiu thjiv ^ hmvumw w v ..«v.w 7 w ■■—— — - — 

se a rotina estiver na primeira linha do programa o valor do endereco inicial 
e = 16514. Agora va anotando o endereco e o codigo numa folha a parte, 
'a medida que estes valores Ihe sao apresentados na tela.’ 

Va observando a coluna de caracteres. 

Copie os valores de endereco e codigo, ate que o ultimo caractere 
contido na linha REM do programa aparega na tela (voce devera notar 
este ultimo caractere de rotina, anteriormente, quando listar o programa). 
b) Programa para quern tern impressora: 

9910 PRINT "END. INICIfli- - ?" 

992© IN P Ui h 

qq:30 LPRINT "ENDERECO" ; TAB 10; "0 
PROCTER";TAB 21;"CODIGO" 

9940 LPRINT 

QQR0 FOP: N=H TO 30000 

QQF.0 LPRINT N; TPB 13;CHR$ PEirK N 

;TAB 23; PEEK N 

9970 NEXT N 
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Entre GOTO 9910, informe o enderepo inicial e deixe a impressora 
trabalhar ate aparecer na coluna de caracteres o ultimo caractere que esta 
contido na Rotina REM. Pronto. Voce ja tern agora os codigos necessaries 
para entrar com a rotina em seu proprio programa. 

Entre NEW, apagando tudo que se encontra presente na memoria 
do computador. 

Entre agora com o "PROGRAMA INICIAL" abaixo: 


i RtM (COLOQUE 
0 U P M T 0 S I - 0 R t M 0 S 

U U '_■ t I W J U O i-i / J g g g 


13 

w w i I'.i t 

i n. a* t i i 

* > <“ k IF. 

c.Nl/ * 

23 

T w | t I'T" 

XNi-U t 

R 

25 

p*. v t“*r* 

rrt -i. s*vi l 

A 

33 

PRINT 

m 

—y 

U 

* 

43 

INPUT 

B 

4.F. 

PRINT 

6 

50 

FOR N 

=R TO 

55 

S3 

73 

SCROL 

W W 1 IM t 

» n, » n « 

INPUT 

L 

m • •• 

in/ Q « 

D 

I 

bS 

PRINT 

P 

93 

POKE 

N , P 

130 

NEXT 

M 

a n 


TRNiOS 
CODIGOS 

• i t i i i t 

I MIC Iff L 
FINAL ? 


PONTOS 

CUE 



100 NEXT T 
110 SCROLL 
120 NEXT M 
130 LET fi=fi + l 
140 NE'x'T N 

150 PRINT TfiB IS, ’FIM*' 

160 STOP 

Fornepa os enderepos inicial e final e va comparando o codigo apre- 
sentado na tela com o correto anotado anteriormente. Se houver al- 
gum erro fapa um sinal na sua relapao a parte. Depois de percorrer todos os 
codigos para corrigir possiveis erros proceda assim: entre com o comando 
direto POKE (enderepo do codigo errado), eddigo certo e NEW LINE para 
cada erro. Pronto, rotina corrigida. 

Apague entao todas as linhas de 0 REVISOR so mantendo a linha 

REM. 

Agora, quando quiser usar a rotina,entre com a linha RAND 
USR 16514 e o seu programa ira se beneficiar dos efeitos desta rotina 
neste ponto. 

Para ajudar o leitor a entender melhor o que acabei de expor, vamos 
analisar juntos, a seguir, um exemplo pratico. 

Vamos supor que a rotina a ser utilizada e a seguinte: 


Entre RUN efornepa o enderepo inicial (16514 lembra-se?). 

Fornepa o enderepo final (e o enderepo do ultimo codigo da rotina 
que voce ira usar). Agora, 'a medida que os enderepos aparecerem na tela, 
digite o respectivo codigo. Quando terminar, o leitor deve apagar todas as 
linhas exceto a linha 1 e pronto, a rotina estara concluida. 

Se o leitor quiser agora corrigir os codigos que digitou para criar a 
rotina em codigo de maquina, sugiro que entre com o programa abaixo, 
adiante da rotina da linha R EM. 


REUISOR, 


M 


10 PRINT “ENDERECO INICIAL • 

20 INPUT fi ' 

25 PRINT fi 

30 PRINT “ENDERECO FINffL- ; 

40 INPUT B ' 

45 PRINT B 

47 FOR T =0 TO 100 

48 NEXT T 

49 CLS 

50 FOR N =0 TO 1 
60 SCROLL 

70 FOR M=fi TO B 

80 PRINT TfiB IS-s-N; M; PEEK 

90 FOR T =0 TO 35 


1 REM E£RND 
* GOSUB STAN 


t fiST 


5 


56N * CHR 


Usando um dos 2 programas elaborados para conseguir os codigos 
da rotina, o leitor ira obter a seguinte tabela: 


ENDERECO 

CfiRfiCTERE 

CODIGO 

1601 4- 

dr 

Um 

4-2 

16515 

f' 

12 

16316 

RND* 

54- 

15517 

rfloT 

229 

15518 

) 

•i -? 

X t 

16519 

5 

w 4 - 

1S520 

•1 £Z CT* - i •! 

X Q D SL X 

t 

0 

cr 

■ “i 

•" d “ ’“i •"» 

W -> CL a 
•i cr cr ■ •• 

SON 

239 

' 

JL L-* •-> CL >-* 

1 lT 1 CL 4- 

CHR* 

H14* 

15' 525 

& 

w 

1C 1 O 'cl D 

GOSUB 

CL w »* 

15527 

H 

175 

15528 

TRN 

201 


0 ultimo caractere da rotina REM e "TAN", portanto o ultimo ende¬ 
repo a ser utilizado da rotina e 16528 com o seu respectivo codigo "201". 


46 


47 




Agora utilize o "PROGRAMAINICIAL" da seguinte forma: 

A primeira linha REM tera 15 pontos, o enderepo inicial sera 16514, 
e o endereco final 16528, Entre com os codigos acima, depois apague 
todas as linhas (exceto a primeira, e claro). 

Entre com o programs abaixo para ver um exemplo pratico do efeito 
da rotina: 


I REM E£RND FAST )5 :3GN * CHR 
$ * GOSUB 3ThN 

f; Fp:-.T 

10 FOR Ns0 TO 10 
15 PRINT 'WiS 




20 NEXT N 

25 PRINT RT 20 v 4; *’UEOh 0 OUE E 
U 5EI FRZER« 

30 SLOW 
35 GOSUB 100 
40 FOR N=0 TO 17 
45 IF N =5 THEN PRINT RT 20,10; 
-LEGAL, NE a ?*' 

50 IF N = 10 THEN PRINT RT 28,2; 
“RGORfi E= R 5UR UEZ DE CRIRR." 

55 RRND USR 16514 
50 GOSUB 100 
65 PRINT RT 


70 RRND USR 16514 


75 GOSUB 100 



100 FOR T =0 TO 20 
110 NEXT T 
120 RETURN 


Use agora sua imaginaqao e crie seus proprios programas usando 
esta rotina. 

A seguir descreverei outra rotina em codigo de maquina muito util. 
Ela permite colocar uma chave de seguranqa nos seus programas. 


"O Sentinela" 


Seguranqa e a palavra do momento. 

Nos, os aficcionados do TK tambem temos que te-la. 0 Programa 
"0 SENTINELA'' da seguranca total aos seus programas em BASIC, nao 
permitindo a ninguem acesso a eles sem que conheca o codigo secreto de 
protecao. Suponhamos que voce queira manter protegido o programa 
"0 PROFESSOR”, apresentado no Capftulo II. Proceda da seguinte ma- 
neira: 

1) Carregue o programa no computador. 
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2) Entre com a linha 1 REM e 41 caracteres. 


1 REM 0000008000000000 
000000000000000808 


80000800 


3) Entre com as linhas abaixo: 

9008BFOR N = i 


q O w« C* <i~ 


q q -i 0 

Vito* Vto»* 

902© 
3338 


PP TMT hi 

INPUT P , 
PRI^IT P 


9348 POKE N P 
9858 NEXT fs 

4) Entre com "GOTO 9000” (evite entrar com RUN 9000 pois isso iria apa- 
gar os possfveis dados do programa). 

5) Entre com os codigos abaixo: 


16 514. . 
15 516 . . 
15518. . 
16520 . , 

16524. . 
16526 . . 

T ^ O 

-u W W* w I I 

16538. . 

.t .*• r* .n .n 
i r**. —% «. ^ ^ 

W* %to.* 4 i«.i 9 9 

T K <=T 

16536 x . 

16b36. , 
•1 

-a- w w -r W l f 

T P, ^ .-1 O 

W W -4* 4— 9 9 

o : 4 4 * « 

16548.. 

15550.. 
15552. 

15554.. 


. 205 
. 64 
. 57 
X 249 
. 145 
.254 


.281 
. 137 
«4 4 


- 285 
. 7 
. 39 
. 198 
.238 
.53 
, 6»4 

1 OP 
. JL c. u* 

d o 
* X.CLL.I 


155 

'ICC 

x C*• 


! • P-. r*\ 


15.4.145 
17. ..254 

19.. .32 
H1•..205 

23.. .64 
2o.«.46 

27.. .242 
o q q Pj ^ 

q 

X X . 4 J— 

33.. .48 

35.. .45 

37.. .77 

39.. .139 

1 A CT w 

X a x » ‘—’ L 1 

■-+• o . ♦ . 6 4 

40.. .40 

'A "7 1 'j jSI 

1 . * a X x— V»‘ 

’ •*: Q •*? Q , 

IP » * « w* Z* ’ 

■ ST T O 1 

•er-c- qp 

’ ... X jin , 


6) Elimine as linhas 9000 a 9050 do programa que agora nao serao mais 
necessarias (entre 9000 e NEW LINE, 9010 e NEW LINE, e assim por 
diante). 

7) Modifique a linha 997 do programa, conforme indicado,de GOTO 100 
para GOTO 90. 

S97 GOTO 90 

8) Entre agora com as linhas: 


90 PRINT RT 11,5; “SSI 

92 RRND USR 16514- 
94. CLS 


9) Pronto,e s6, Vejamos agora o resultado: entre com "GOTO 90", 

10) Aparecera a mensagem em letras invertidas "PROGRAMA PROTEGI¬ 
DO" e nada conseguira fazer.b programa rodar. 
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11) QUASE NADA: experimente entrar com os caracteres "T", "K" em 
intervalos de mais ou menos meio segundo; pronto — protegao aberta (os 
caracteres de seguranga sSo "T" e "K"). 

12) Agora a parte mais importante: voce pode alterar os dois caracteres 
de seguranga a seu gosto. Vejamos como: 

13) Corisulte o Apendice A do Manual do seu computador; la se encontra 
o conjunto de Caracteres. 

14) Suponhamos que voce queira alterar o cddigo secreto para "B", "S": 

15) 0 caractere "B" tem cddigo 39 
0 caractere "S" tem cddigo 56 

16) Faga assim, entre com os comandos diretos 
POKE-16518, 39 

POKE 16525,56 

Pronto, ja temos o novo cddigo registrado. 

17) Experimente: entre GOTO 90 e tente rodar o programa; voce so o con- 
seguira digitando "B" e depois "S". 

18) Agora entre com “GOTO 1320" e voce estara retornando a parte prin¬ 
cipal de "0 PROFESSOR". 

Se o programa ja contiver dados, escolha a opgao 3 e "salve" o 
programa em fita. Voce sd conseguira roda-lo digitando o seu cddigo se¬ 
creto. Nenhum aluno seu tera condigSes de alterar os dados do seu pro¬ 
grama "0 PROFESSOR". 

Evidentemente voce pode colocar "0 SENTINELA" em qualquer 
programa seu em BASIC. Apenas tome as seguintes precaugdes: 

a) As linhas de programa que nds escolhemos de 9000 a 9050 de- 
vem ser colocadas em linhas nao usadas no seu programa principal. 

b) As linhas 

- PRINT AT 11,5; "PROGRAMA PROTEGIDO" 

- RAND USR 16514 

- CL.S 

devem sempre ser colocadas apds a linha de instrugao SAVE do seu pro¬ 
grama, para fc|ue, ao carrega-lo no computador, automaticamente en¬ 
tre na rotina de bloqueio. 


CfiPITULO XU 

0 COMPUThD0R_E 
O UI DEO C P.SSE ! t 
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O COMPUTADOR E O vfDEO CASSETE 


Este capitulo foi escrito especialmente para os proprietaries de vi- 
deo-cassete ou de filmadoras Super 8. 

Voce vai aprender comb usar o seu computador para fazer titulos, 
apresentagoes e finais para as suas realizagoes em video ou filme. A seguir 
sao mostrados 3 programas: 

— 0 APRESENTADOR que gera aberturas e titulos principals, 

— 0 APRESENTADOR II para os finais de suas obras, 

— 0 APRESENTADOR III que permite fazer titulos e subtitulos que per- 
correm a tela de baixo para cima (como aqueles que voce ve nas aberturas 
e finais dos programas de televisao). 

Se voce, por acaso, ainda nao aderiu ao Video-Cassete,mas curte 
fazer filmes em Super 8, tambem podera criar os seus titulos e depois fil- 
ma-los diretamente da tela de sua televisao, desde que ela tenha pelo 
menos 20 polegadas e esteja bem regulada. 

Eu ja fiz titulos desta maneira e os resultados foram muito bons. 

O Apresentador 


0 APRESENTADOR cria aberturas para seus programas em Video- 
Cassete com ate 5 telas diferentes para os titulos, que se sucederao uns 
aos outros na tela de sua TV. Se voce so possue o aparelho de video-casse- 
te e ainda nao possue a camara, ainda assim o programa sera de muita uti- 
lidade, pois voce podera fazer aberturas e finais para programas gravados 
diretamente da televisao. 

Parte I: Entre com o "PROGRAMA 1NICIAL" mostrado no Ca¬ 
pitulo ill dolivro. 

RUN 

0 endereco inicial sera 16514 

0 enderego final sera 16536 

Fornega os codigos abaixo: 


1L* £14 

*i cz cr -t c 
-L -L 

16518 

16528 

16522 

•* C 1— * ! .< , 

I II .1 


•icc rs 
a. •_* sj 

16582 

16534 

16535 


• w c! 8 7 

B « iHw* 

. x 42 
. ,64^ 

M « 2 1 £ 
t a IC. 'J i 
. . £01 

* 

* . t* 4 

A «-iO 

a * 

*— A 
a a £=.*•+• 


1651 s...91 

1 6 £ 1 7 a a a 6 4 

1 £5 1 y a a I Ic 

16521. a a 1 

16^23 a a a 2 

a «= cr cr a “7 cz 

IbDC 1 f l a a id --I* i" 

18529.1.12 
1 5 £3 1 a a . 42 
16533 a a .64 

IbS'Ju' . a a H 4 1 
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Depois apague as linhas de 10 a 100 mantendo a linha 1 REM . . . 
Parte II: Introdupao do Programa Principal: 

Mantendo a linha 1 REM, entre com paciencia e dedicacao todo o 
programa da listagem adiante: 


NO MAXIM 


1 REM GOSUB ??RNDE£RND*NOT * 
GOSUB STRN G0SUB £PNDERND LET 

TRN 

2 FOR C=-l TO 0 

3 SL'OU 
4- CL'S 

5 PRINT "1. RPRESENTflCflO”, , , , 

6 PRINT "OURNTAS LETRfiS TERR 
fl ";0+2;". LINHA?" 

7 INPUT L 

8 IF L > 8 T HE N P RI NT 
0 8 LETRfiS." 

9 IF L >8 THEN GOTO 7 

10 PRINT "fl "; 0+2; " . LINHA-TER 
R ";Lj” LETRRS. " 

12 PRINT "ENTRE COM fl ";C+2j" 
LINHA." 

20 INPUT fl$ 

24- Ir LEN R$oL THEN PRINT "AT 

ENCRO , UOCE ESCOLHEU ":L:" LETRR 

11 9 

« 

26 IF LEN H$<>L THEN GOTO 20 

27 CLS 
26 FRST 

29 IF 0=0 THEN RRND USR 16527 

30 LET E=C+1 

40. FOR F =0 TO 7 
*0 LET 1=9504-C0DE R$ 

60 FOR G =0 TO 7 
70 LET X=PEEK (6 £ 14*G; 

■80 FOR H =0 TO 7 
90 LET Z=INT CX/2 **i7-H'* * /2 
100 If“,,Z < > I NT Z THEN PLOT H + S*F 
+ i 8-L J -F4 , 40 -G - 8 £E-2 * (C+2 ** 

110 NEXT H 

120 NEXT G 

13 0 L ET H $ = H $ i H T 0 J 

140 Ir* LEN H$=0 THEN GOTO 2^0 

150 NEXT F 

150 NEXT E 

240 SLOW 

d 0 0 O B 100 

285 NEXT C 

286 SLOU 

237 PRINT RT 19,0;“ft RPRE3ENTRC 
RO FICOU BOR RSSIM?“ 

289 PRINT “ENTRE ,,,, S' ,U 5E GOSTn 
U DELR“ 

-291 PRINT “ENTRE “ "N 4M SE OUIZE 
R REFRZE-LR" 


295 

IF INKEY$=”S 

" THEN GOTO 

300 

IF INKEY$ ="N 

" THEN GOTO 

305 

GOTO 295 



310 

G L 0 



J12 

LET M = 1 



315 

GOTO 2000 



500 

LET D =7 



w'0c! 

ROTO 3000 



F55 

LET X=13 



570 

FOR Y = 8 TO 1 

5 


575 

G u *0 U E* 9 y 8 0 



530 

F n p X — 14 T u 

IS 


535 

LET Y =15 



590 

ROSUB 9990 



9 5 

LET X = 16 



500 

FOR Y = 14 TO 

11 

STEP -1 

505 

G u s* U E* y y 8 0 



510 

Flip X = 15 TO 

14 

STEP ~i 

51b 

LET Y=11 



520 

GOSUB 9990 



525 

LET X =19 



530 

F0R Y = 11 TO 

is 


■— cr 

L.' 

g ij u s» y y 1 0 



540 

PLOT - 20 /14- 



545 

PLOT 21,15 



550 

LET D =25. 



S b>5 

GOTO 3200 



725 

F 0 R X = 3 3 T 0 

w‘0 

STEP -1 

730 

LET Y = 15 



70 C 

1 w w 

ROSUB 9990 



740 

LET X =30 



745 

FOR Y =14 TO 

13 

STEP -1 

750 

GOSUB 9980 



755 

FOR X=31 TO 



750 

LtT Y = 13 



t D w 

GO SUB 9990 

- 


770 

LET X =33 



775 

FOR Y=12 TO 

11 

STEP -1 

730 

GOSUB 9988 



785 

FOR X ='32 TO 

30 

STEP -1 

790 

LET Y = 11 . 




ROSUB 9990 



800 

LET D =37 



805 

GOTO 3200 



7 nr 
Q r w 

LET X =42 



380 

FOR Y=15_T0 

11 

STEP -1 

335 

G ' S' U B y y S' 0 



890 

PLOT 43,14 



900 

FOR X =44 TO 

45 


915 

LET Y = 15 



920 

g u s U E ; y y y 0 



925 

LET X=46 



930 

FOR Y = 15 TO 

11 

mm «Ht mmm f"**. ^ 

oTEP - j. 

935 

i -i 11 U E' y 9 S' 0 



y 40 

LET X =58 



945 

FOR Y = 17 TO 

11 

STEP -1 


-t 


0 
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55 




950 

955 

950 

970 

975 

950 


GOSUB 9980 
PLOT 49,15 
PLO! 51,15 

PLOT 51,11 
LET D =55 
GOTO 3000 


2001 PRINT "0 APRESENTADOR ”,,,,, 

t 

2030 PRINT " UOCE Q! t£R , “ , 

203b PRINT "1, CRIAR UMR"RPPESEN 
TRCRO" , , , 

204-0 PRINT "2. FPZER/REFAZEP H:=, 
TITULOS",, , ' ’ 

204-5 PRINT "3. UER UMR APRESFNTR 
CRD COMPLETR", , 

2050 PRINT "4-, UER SO OS TIT! I in?, 


OS TITULOS”' 


2055 

PRINT i! 5," 

TRCR0 5E M/00M 

2060 

IF INKEY$ = 

2070 

0 

It INKEY$= 

V 

2030 

0 

IF INKEY $ = 

w 

o fTl O •” 

i*~ ._2« 

0 

IF INKEY$= 

2035 

IF INKEY$= 

0 


2090 

GOTO 2050 

2500 

("T I - *! “7* '**• ~7 ~t CT 

w '«,* 1 'J { 

3000 

FOR X=D TQ 

3010 

LtT Y = 1 

3020 

GOSUB 9990 

’ J 0 o 0 

LET X =D *f 2 

3040 

FOR Y = 14 T 

3050 

GOSUB 9980 

3050 

F L U T i.* 1 *f" *«r* i 1 

3070 

FOR X=D + i ‘ 

■-« 0 O 0 

LiiT Y = 13 

3090 

GOSUB 9990 

3100 

LET X=D-1 

3110 

FOR Y = 12 Ti 

3120 

G 0 5 U B 9 9 8 0 

3130 

FOR X=5’fo 

3140. 

LET Y=11 

3150 

G 0 S U B 9 9 9O 

3150 

t? UT U U "S C 1 0 


3200 FOR X =D TO D+2 
3210 LET Y=13 
: J220 GO Si IB m Q Q 0 
3230 LET~X=5+2 
324-0 FOR Y = 14- TO 15 
b 0 y U S U B 9 9 S 0 

3250 f-OR X =0 + 1 TO D-l STEP _ i 
3270 LET Y = 15 " 


3230 

GOSUB 

Q990 

3290 

LET X 

=5-1 

3300 

FOR Y 

=14 TO 11 STEP -1 

3310 

GOSUB 

9930 

3320 

F 0 R X 

=D T 0 D + 2 

3330 

L ET Y 

= 11 

3340 

G 0 S U B 

9 99 O 

3350 

G OT 0 

100*D 

3700 

G OT 0 

w 7 

4400 

GOSUB 

0000 

4405 

IF M = 

1 THEN GOTO 3550 

4410 

GOTO 

3500 

5000 

SLOW 


5002 

CLS 


5005 

F 0 Pi C 

= -l TO 0 

5010 

G n 5 i JB 

5000 

5020 

GOSUB 

3500 

5030 

NEXT 

n 

5040 

Lr U O U £j 

5000 

5030 

ij !_iT 0 

500 

5090 

GOSUB 

5000 

5000 

FOR N 

=0 TO 10 

5010 

NEXT 

N 

5020 

RETURN 

7000 

CLS 


7001 

PRIHT 

*' COLO CUE SEU Ghh 

H NR 

PQSICRO '*'*REG M “ , E ENTR 

NEWLINE’**' " 


7002 

INPUT 

0 $ 

7003 

CLS 


7004 

LET M 

= 0 

7010 

LET L$ = " * . ” 

7020 

LET L 

$ (1) =CHR$ PEizK 164 

7030 

LET L 

$(2)=CHR$ PEEK 154 

7040 

POKt 

16405 , 113 

7050 

POKE 

10 40 4- ^ 0 

7060 

*—{ IJ o 

"0 APRESENTADOS” 

7070 

r-t i”"t l*’ cr 
?- r\ l_ 

1 c«404- j L*UDE L $ i 13 

7030 

P 0 K E 

16405 j CODE L$(2) 

7035 

T ST r-i _ 
_L ! 1 i — 

1 THEN GOTO 3000 

7090 

! *i ! iT* * 1 

2000 

3000 

CLS 


3002 

n 

PRINT 

*'TITULOS E 5UB-TI 

•_< ,! 1 
0004 

‘ l PRINT 

"OURNTRS TELRS?" 

O 0 0 O 

INPUT 

~r 

i 

3011 

IF T > 

5 THEN PRINT "RTEN 

NO 

[-IPX I MO 

5 TELRS.“ 

3012 

r cr *r .* 

x; t \ 

1 OR T>5 THEN 601 0 

C* 0 1 

PRINT 

T* 

i 

8020 

FOR C 

= 1 TO T 

3030 

F w I NT 

OURNTRS LINHRS T 

h 

TT 

/ * * 

ELR?" 

Q 0 -J C' 

INPUT 

u 


I W I_I l l 

i H r* 


56 
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804.0 IF W >4- THEN PRINT "ATENCAP , 
NO MAXIMO 4 . LINHAS. “ 

804-2 Ir U > 4- THEN GOTO SO:*;8 

8043 PRINT U 

8050 FOR E=1 TO W 

8050 PRINT "QUANTAS LETRfiS TFpw 

A linhp?" 

8070 INPUT L 

8072 It- L >8 THEN PRINT "PTENSpn , 
NO MAXIMO 8 LETRA5." 

8073 IP L>8 THEN GOTO 8070 
8075 PRINT L 

8150 PRINT "ENTRE"’ COM A ", F; " , L 
INHA " 

8170 INPUT A $ 

8175 IF LEN A$OL THEN PRINT "AT 
ENCAD., UOCE. ESCOLHEU " ; L; ” LETRA 

‘mm 1 » 

8177 IP LEN A$OL THEN GOTO 8170 

8178 CL8 
8180 PAST 

8190 IP E>1 THEN GOSUB 860O 
8200 FOR'F =0 TO L 


3210 

LET 

I=950 + ( 

3220 

FOR 

G =0 TO 

3230 

LET 

X =PEEK 

3240 

FOR 

H=0 TO 

8250 

LET 

Z = I NT 

8250 

IF Z 

oint : 

+ C3-L 

) * 4.. 

49“INT 


54/(U+2) ) *(E-l)-G 

8270 NEXT H 

8280 NEXT G 

8290 LET A$ = A$(2 TO 5 

8300 IP LEN A$=0 THEN GOTO 8811 

8310 NEXT P 

8311 SLOW 

8 3 15 G 0 S U B 910 8 
8318 IP EOU THEN OLS 
8320 NEXT E 

8322 PRINT AT 19,8;"R TEL 

A ESTA BOA ASSIM?" 

8828 PRINT " S " NO CASO A FI p M A 

TIUO” 

8324 PRINT """N"" gE OUIZEP off A 

ZER_A TELA" " . 

8325 Ir INKEY$="S" THEN GOTH 
0 " 

8327 IP INKEY$="N" THEN GOTO 840 
0 

oody u?uT*u i"*! i *i f 1 e 
o o U 0 U L o 
S331 NEXT C 
C'.o o 5 o L U U 
8338 LET M =2 


58 


8340 
*'DEPC 
RR AC 
8350 

CT CT 

o ♦ w» 5 
8360 
c* 4 0 0 
8410 
8500 

3501 

8585 

3510 

8540 

8550 


0 

3561 

3562 
3565 
8570 
3580 
3680 
3610 

3620 
8630 
3930 
9100 
3110 
3120 
3140 
y y »“»0 
3981 
9932 


Q Q 0 0 


PRINT “UEdP COHO FICOLL " > , 

315 fcNTRE PhRR RETHRN 

J MENU" 

GOSUB 5008 
GOSUB 5000 
GOTO 5080 
.OLS 

GOTO 3030 
CL 5 

IF fi = l THEN GOTO 2000 
FOR C = 1 TO T 
GOSUB 3600 
G 0 S U B 6* 0 0 0 
NEXT C 

IF IN KEY $ = “ M " ThEH GOTO 200 

GOTO 8560 
ULb 

GOTO 2000 
STOP 

GOTO 5000 
POKE 16507 j 128 
POKE 16503 ; 94 + 3* C 
RRND Uir>R 15i=! 7 
PET* JRN 
STOP 

POKE 16507,128 

POKE 16508 j 34 + 3*0 

RRND USR 15514 

PET* JPN 

PLOT X/Y 

NEXT Y 

RETURN 

PLOT X/Y 

NEXT X 

RETURN 


Parte III: Uma vez completa a introdupao, armazene o programa 
em fita entrando SAVE "0 APRESENTADOR" e "NEW LINE". 

(nao entre GOTO 7060). 

Uma vez armazenado todo o programa guarde bem a fita e va des- 
cansar, afinal amanha e um outro dia e o mundo nao foi criado num dia so. 


Criafzio dos trtulos 

Suponhamos agora que o seu apelido familiar seja DINDO e que 
voce seja um tio legal que se propSe a gravar em video o 8? aniversario do 
seu sobrinho Marcelo. Proceda da seguinte forma: 

1) Carregue o APRESENTADOR no computador e entre "GOTO 2000" e 
NEWLINE. 
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Aparecera o MENU abaixo: 

0 RPRESENTED 




' • :, 5RUH P.PRcSENTRC hO SEM 
OS TITULOS 


Escolha a opcao 1. 

2. 0 computador pedira a voce para criar a abertura com 2 linhas cada 
uma, com ate 8 letras por linha. No nosso exemplo a 1? linha sera "DINDO" 
com 5 letras. Informe isso ao TK, ele entao entrara no modo "FAST" e a 
imagem desaparecera por alguns segundos. 

Ao ser perguntado, informe que a segunda linha tera quatro letras — 
"NEWS". Ao completar a abertura o computador Ihe mostrara como 
ficou. Se voce nao gostou digite "N" e repita a abertura. Se gostou digite 
"S", e o programa voltara ao Menu. Quando voce for utilizar a apresen- 
tacao, esta abertura ficara assim: 



3. Neste ponto, se escolher a opcao 5, voce podera armazenar a aber¬ 
tura para usar em outras ocasibes. 

Ao carregar o programa ele Ira automaticamente na opcao 2 na 
qual voce ira criar os tftulos. 

4. Ao inves de salvar o programa voce podera escolher diretamente a 
opcao 2 e criar os tftulos que comporao a apresentacao completa. 
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5. Informe ao computador quando ele Ihe perguntar quantas telas tera o 
tftulo completo (no maximo 5 telas). No nosso exemplo sao duas telas: 



6. 0 computador perguntara entao quantas linhas tera a primeira tela (no 
maximo 4). Informe isso ao computador. 

7. Agora informe que a primeira linha tera 7 letras (MARCELO). 

8. 0 computador,entao, entrara no modo FAST e ampliara esta primeira 
linha. 

9. Prossiga com as outras tres linhas: 

2! linha — 3 letras — FAZ 

3! linha — 1 letra — 8 
4! linha — 4 letras — ANOS 
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10. Nofim o computador Ihe apresentara a tela para julgamento. 

11. Entre "N" se quiser refaze-la. 

12. Entre "S" se estiver OK. 

13. Crie entao a segunda tela: 

1? linha da 2 a . tela — 1 letra — E 
29 linha da 2! tela — 7 letras — CONVIDA 
3? linha da 2! tela — 4 letras — TODA 
4! linha da 2? tela - 6 letras - PATOTA 

14. Julgue a tela depois de concluida. 

15. Se voce entrar "S" a apresentagao toda estara concluida e voce po- 
dera admira-la. 

16. Entre "M" (MENU) depois de concluida a apresentagao e retorne ao 
MENU. 

17. Neste ponto escolha a opgao 5. “Salve" no gravador toda a apresen¬ 
tagao. 

18. Se em algum momento da criagao da apresentagao o programa se in¬ 
terromper, entre GOTO 2000 e escolha a opgao 1 ou 2. 

Criagio do final 

0 Programa "0 APRESENTADOR II" listado a seguir e de utilizagao 
mais simples. Vamos ver como utiliza-lo para criar um final assim: 




quando formos gravar o final da obra depois da festa de aniversario do 
Marcelo. 

1 REM O RPRESENTRDOR II 

CC3 -B.C.STEIN 
OUT 1333 

10 PRINT RT 6,13;“FINhl" _ 

20 PRINT PT 9,4;"ENTRE COM R r 
RfiSE F-INfiL“ 

30 PRINT RT 11,2;"(E COM ft DRT 

ft, XX/XX/XXXXJ ■' 

4.0 INPUT B $ 

50 CLS 

80 PRINT RT 6,0; "PftRft UER O FI 
NfiL, ENTRE COM ""F . 




7i?« 

1 lm m 

IF INKEY$ = ” f 

SB 

GOTO 70. 

100 

CLS 

101 

FOR N -0 TO < 

102 

NEXT N 

104 

GOSUB 3000 

105 

F'LUT 10/34 

110 

LET X =9 

120 

FOR Y=32 TO 

.n .n 

1 w 1 ‘■CJ 

GOSUB 1000 

140 

PLOT 3 j 27 

145 

GOSUB 3000 

•t .n 

JL w t* 

PLOT 10/27 

11? U 

LET X=14 

'1 

-Ju. I W 

FOR Y =29 TO 

.1 ,n 

X C* 

G 0 5 U B 10 0 O 

.1 .n r— 

lCu 

GOSUB 3080 

190 

pi OT *- 4 


GOSUB 30-00 

2 ft ft 

PLOT 14,31 

C V w 

GOSUB 3000 

210 

PLOT 19,29 


LET X =20 

230 

FOR Y=29 TO 

240 

G 0SUB 1000 

CrC! 

GOSUB 3000 

. u r— 

d ’X w : 

PLOT 21,27 


GOSUB 300.0 

0 

PLOT 22,28 


G 0SUB 3000 

m 

PLOT 23,29 


LET X =24 

.—. .n 

FOR Y=29 TO 

-z:- !*> 
w li’ 

GOSUB 1000 

233 

GOSUB 3000- 

290 

PLOT 25,27 

295 

GOSUB 3O00 

300 

PLOT 2*6 , 2'S 

305 

GOSUB 3000 

310 

PLOT 27,29 

320 

LET X =28 

338 

FOR Y=29 TO 


GOSUB 1000 

350 

FOR X =12 TO 

3 o 0 

1 =T Y - P l 

370 

PLOT X,Y 

.—. 

GOSUB 3090 

380 

NEXT X 

500 

GOTO 200-0 

993 

■Z- T 0 F 5 

000 

PLOT X,Y 

.010 

NEXT Y 

020 

RETURN 

:000 

PRINT AT 15 
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201S 

1" 

HKINI H T 

16,IS; 

"i 

in .n .“i 

2 2 vi’. 

Bm 

s* 

PRINT PT 

17,IS; 


2025 

LET P$=B 

EC 


■2 iTi jTs 

W 4 w 

} ?T Pfi — ** 

Li* 1 1 r ' fT 



—l7j ^ rA 

w w 1 w* 

FOR X =1 

TO LEH 

(PE 3 -9 

2050 

PRINT H T 

IS,19; 

HE \X TO X -f 9 ) 

205,5 

O iTi "7i7i 

I— W I In** 

GOSUd 30 
NEXT X 

.n ,-i 

KJr 


d ± ks 

.n #t .n 

C'li v.1 

IrOR N -0 
NEXT N 

TO 1000 

! I* m - 

■ V 

3000 
3 010 
3020 
3030 

FOR N =© 
NEXT N 
RETURN 

**n / i i 

W i W i 

TO 4 


4000 

J’ 4t 

.*» i.*i s 
**1* 

SfiUE “O 

* a * 

4—* : • tvt 

j w* r t 

R P Rl 5 L NT fi D O H 14 


Gravapao da apresentapao em video-cassete 


Chegou o grande dia. E hoje a festa do Marcelo. Acorde cedo, fapa 
sua ginastica para se sentir disposto. Depois monte o seu video-cassete e o 
seu computador conforme o esquema abaixo: 



Interligue a saida do computador a entrada da antena do video-cas¬ 
sete. Se o seu video-cassete nao tiver recurso de-"AUDIO DUBBING" (que 
permite a gravapao de trilha musical em separado), voc§ devera ligar uma 
fonte de som (microfone, gravador, toca-disco etc.) diretamente na entra¬ 
da AUDIO IN. Carregue o programa "0 APRESENTADOR" no computa¬ 
dor e coloque uma fita (ou disco) na fonte do som. Coloque uma fita de 
video nova no aparelho de video-cassete. ATENCAO: Ligue o video-casse¬ 
te, sintonize o canal correspondente ap canal em que voce opera o seu 
computador. REGULE a sintonia fina deste canal, ja que normalmente ela 
nao vem regulada da fabrica. 


Fapa isso ate obter uma imagem nitida do computador na tela da 
TV ligada ao video-cassete. Voce podera entao, ir em frente. Coloque o 
video-cassete em REC-PLAY e PAUSE; prepare a fonte de som, e deixe o 
computador no MENU. Ja que voce nao tern 3 maos, pepa a ajuda de al- 
guem para soltar o PAUSE do video, escolher a oppao 3 do MENU e libe- 
rar a fonte de som. Se voce escolher a oppao 4, tera titulos sem a apre- 
sentacao inicial. 

Interrompa a gravapao do som quando a apresentapao estiver gra- 
vada (se o seu video-cassete tiver o recurso "AUDIO DUB" voce podera 
gravar so a imagem da apresentapao, e gravar o som posteriormente,com 
mais calma). 

Apos ter gravado os titulos, retorne a fita dej video ao inicio e veja se 
a obra ficou boa. Voce sempre podera repetir tudo se nao tiver gostado. 

Uma vez satisfeito, tire a fita e carregue-a (nao preciso dizer que 
voce deve comepar a gravar a fita apos o ponto onde o titulo foi gravado, 

para n§o gravar sbbre ele e perde-lo). 

Vamos a festa que a familia ja esta esperando. Leve seu fiiho como 

iluminador e maos a obra. 

Nao coma muitos doces que voce esta a servipo e, alem disso, fa- 
zendo regime. TRABALHE. 

Apos a festa volte para casa e prepare o encerramento do trabalho. 
Carregue no computador, que voce deixou conectado ao video-cassete, o 
programa "0 APRESENTADOR II". 

Ao ser carregado, o programa perguntara qual a frase que voce 
quer que aparepa como final. Escolha algo como "FILME REALIZADO 
PELO TITIO EM SUA HOMENAGEM EM 14/10/1983" e "NEW LINE" (pro¬ 
cure entrar no fim da frase com a data, usando sempre 10 digitos. Por 
exemplo: 03/02/1984, voce logo vera o porque). 

Agora entre "F" e voce podera ver como ficara o final na fita (veja 
que a data com 10 digitos ficara centralizada no quadro). 

Ap6s ver o final entre "BREAK", "GOTO 60" e "NEW LINE . 

Agora ponha seu video em REC/PLAY e PAUSE, prepare a musica e 
deixe-a tocando antes do ponto desejado. Ao chegar no ponto desejado 
libere a tecla "PAUSE" do video ao mesmo tempo que voce entra "F" no 
computador. O resto eles farao sozinhos. Deixe o final ser gravado pelo 
menos uns 15 segundos apos ter sido completado. 

Muito bem, volte a casa do Marcelo e mostre a sua obra a todos. 
Voce sera nomeado o "Dias Gomes" da familia. 

O Apresentador III 

A instrupao "SCROLL" de seu computador pode ser usada para ge- 
rar subtitulos deslizantes e assim compietar esta "trilogia" de prqgramas 
para aficcionados em Video-Cassete. 

Decida quantas linhas tera o subtitulo que devera percorrer a tela de 
baixo para cima. O exemplo do programa abaixo tern 6 linhas. 
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0 valor de "X" da iinha 9800 deve ser escolhido conforme a f6rmu- 
la -+ X = 9 — (numero de linhas do titulo). 

Se o numero de linhas de titulos for igual ou superior a 8 o valor de 
"X" sera sempre igual a 1. 

Se voce quiser alterar a velocidade de apresentagao dos titulos 
altere o valor "20" na Iinha 9910 do programa. 

1 REM 0 hPRESENThDOR III 

id -B.C.STEIN 
JUL 1984 

10 LET fi$ = "1. TITULO" 

20 LET B$ = “2'. TITULO" 

21 LET C$="3. TITULO" 

22 LET D$ = "4, TITULO" 

23 LET E$=“5. TITULO" 

24 LET F$="6. TITULO" 

30 GOSUB 9900 


4.0 

PRINT 

PT 21 y 

(32-LEN 

fi$t /2 ; PI 

$ 




50 

GO SUB 

9908 



50 

$ 

70 

PRINT 

HT cl 1 , 

(32-LEN 

B$) /2; e 

G 0 S U B 

9988 



80 

$ 

90 

PRINT 

hT ci ; 

(32-LEN 

C$; /2; C 

GOw'UB 

PRINT 

9988 
hT h 1 t 

(32-LEN 

D $) /2;D 

180 

$ 

110 

GOSUB 

9988 



128 

$ 

138 

PRINT 

PT 21, 

(3 2 - L E N 

E$) /2; E 

GOSUB 

9988 



14.0 

PRINT 

HT 21, 

(32-LEN 

F $i/2;F 


$ 

1 w- 0 u u C‘ U B y y 0 8 
9800 J=0R N = 1 TO X 
9810 903UB 9910 
9830 NEXT N 
9840 FOR T =0 TO 1080 
9850 NEXT T 
yy08 suRuLl. 

9910 FOR T =0 TO 20 
9920 NEXT T 
9938 SCROLL 
9948 RETURN 

Agora entre com o programa. Defina cada uma das linhas do subti- 
tulo. Cada Iinha deve ter no maximo 32 caracteres. E claro que o programa 
tera tantos pares de linhas, 


GOSUB 9988 
PRINT RT 21.. (32-LEN 
quantas forem as linhas de titulos. 


X$) 


/2; x$ 
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0 USO DA IMPRESSORA 


Alguns dos programas apresentados neste livro preveem opcional- 
mente o uso de uma impressora. 0 leitor podera verificar que nos progra¬ 
mas "0 PROFESSOR" (Capitulo II), "0 ARQUIVISTA" {Capitulo VI) e 
"0 POETA" (Capitulo VII) esta prevista a sua utilizagao. 

Os mencionados programas funcionam perfeitamente sem a im¬ 
pressora, mas tornam-se mais interessantes e uteis se ela puder ser usada. ■ 
Os dois programas deste capitulo foram criados especialmente para 
serem usados com a impressora. 

Atualmente existem a venda no mercado internacional, dois tipos de 
impressoras: 

a) Uma impressora de origem inglesa semelhante a que era comer- 
cializada pela "Microdigital". 

b) Uma impressora fabricada nos Estados Unidos: a TIMEX 2040. 

O Impressor e O Impressor II 

0 autor tinha constantemente problemas de organizagao de sua 
colegao de programas armazenados em fitas cassete. 

Os filhos do autor tinham bs mesmos problemas com suas fitas de 
musicas gravadas de discos ou do radio. 

Para resolver estes problemas foi escrito o programs "0 IMPRES¬ 
SOR" que permite criar rotulos para fitas cassete. 

Como a formatagao das duas impressoras existentes a venda e dife- 
rente, foram criadas duas versbes do programs: 

-"0 IMPRESSOR": para os proprietaries da Impressora de origem 
inglesa, a ZX PRINTER, ou de sua versao nacional, a TK PRINTER. 

-"0 IMPRESSOR II": para aqueles que possuem a impressora Tl- 
M EX 2040. 

As instrugoes que sao dadas adiante servem para ambas as versbes 
do programs: 

1) Entre com um dos dois programas no seu computador. 

2) Depois entre "GOTO 3000" para armazena-lo em fita. 

3) Quando voce for "carregar" o programs para utiliza-lo, nao esquega de 
ligar a impressora ao computador. 

4) Ao "carregar" o programs ele Ihe perguntara o numero da fita. Se voce 
for organizar a sua fitoteca, sugiro que numere as fitas em ordem sequen- 
cial: 1 para a primeira, 2 para a segunda, e assim por diante. 

5) 0 nome da fita podera ter no maximo tres linhas. 

Informe ao computador quantas linhas voce quer (no nosso exemplo serao 
.3 linhas). 

6) Entre ent§o com a primeira linha, com no maximo 5 letras ("Fita" — no 
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71 A magem desaparecera par alguns segundos enquanto o seu compu- 


8 Entre entao com a segunda linha I "De") e depois com a terceira linha 
fjogod’*). 

9) Ao tercninar de formar a ultima linha a impressora imprimira, automati- 
camente, em duas etapas, o rotulo para a sua fita. 

18 Destaque o rotulo da impressora. Corte-o nas duas linhas interrompi- 
das e dobre-o na direpao das duas linhas pontilhadas. 

Adiante seguem as duas listagens e as respectivas amostras de 
como ficarao os rotulos ©m cada uma das duas versdes. 

Listagem para a Impressora ZX-PRiMTER ou TK PRINTER. 


1 REM 0 IMPRES5GR 

to B, C.STEIN 
JAM 1934 

'*■ PkXMT " ©UAL SERA 0 NUMERO 
PESTfl FITA?" 

1© INPUT FITA 

2© PRINT AT " SEU TITULO T 

ERR 8UANTAS LINHAS?" 

3© INPUT L 

31 IF L>3 THEN PRINT ** ATENCAO 
* NO MAXIMO 3 LINHAS" 

34- IF L>3 THEN GOTO 30 

4*0 sosye 90 © 

45 LET R=5 
5© FOR X ~ 1 T 13 L 
ss SLoy 


6© PRINT #ST 0,0;'* ENTRE COM « 
LINHft M 

7© input m 

72.LET 

75 LfcT P=LEN H'$ 

8® IF P>5 THEN PRINT ** RTENCRO 
, NO HRXXHO 5 LETRflS" 

55 IF F>5 THEN SOTO 7® 

100 -G05UB 9©® 


II© FOR F=® TO P 
12®.LET I=96® 4CODE R$ 

13® FOR S=0 TO 7 
1-4® LET Y=PEEK t8*X+G) - 
15® FOR H=® TO 7 
16® LET Z-XNT 7-H) ) /2 

17® IF Z-OINT Z THEN PLOT 10 + H + 
o#F 4* CO*P ? -&4 , 3© -‘-•is—•3 ^ CX + ll 
180 NEXT H 
19® NEXT 0 

2®® LET R$=R$|2 TO V 

21® IF LEN R$=® THEN GOTO 33© 

22® NEXT F 


30© FOR N=1 TO LEN 8$ 

32© PRINT RT N+fl.7;B$(N) 

34© NEXT N 

35© LET Rssfl+LEN B$ + l 
430 NEXT X 
50© GOTO 100© 

899 STOP 

90© PRINT RT,©,©;*‘ 

* 7 

910 PRINT RT l,®; M 

11 

920 RETURN 
1020 LET R=2i 
1030 LET £*—41 
104-0 LET C=® 

1050 LET D»1 

1055 PRINT RT 0,0;“- 

it 


1068 FOR N=D TO A 
1870 PRINT AT N,5.;"i" 
1038 PRINT AT N,9.;"i" 
1835 PRINT AT N,10;"l" 
1890 PRINT AT N , 31; "I" 
1108 NEXT N 
1118 FOR N = 12 TO 63 
1120 PLOT N,B 
1125 UNPLOT 19,B 
1130 NEXT N 

1140 IF C THEN GOTO 1508 

1150 LET C=1 

1160 COPY 

1162 CL6 

1165 GOSUB 2008 

1178 LET A=13 

1180 LET B=15 

1190 LET D=0 

1200 GOTO 1060 

1500 PRINT TAB 8;- 


1510 FOR N = 14 TO 17 . 

1515 PRINT AT N,5.;":“ 

1528 PRINT AT N,9.;":” 

1530 NEXT N 

1535 PRINT AT IS,4;"DOBRAS" 

1537 PRINT RT 15,26;"CORTES" 

1558 COPY 
1555 SLOW 

1560 STOP 

2832 LET P$=" * FITA" 

2004 FOR N = 1 TO 7 
2006 PRINT AT N,7;P$(N) 

2083 NEXT N 

2809 PRINT AT 9,7;"N." 

2818 IF FITA<10 THEN PRINT AT 18 
,6 ;"00”;FITA 
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2020 IF FITP>=18 PND FITfi<I00 TH 
EN PRINT PT 10,6; ,, 0“ ; FITP 
2030 IF FITP>=100 THEN PRINT PT 
10,6;FITP 

2040 PRINT PT 10,13;"PPRP COMPUT 
PDORES“ 

2050 PRINT PT 11.15;"PESSOPIS CO 
M" 

2060 PRINT PT 12,14;"LOGICfl-SINC 
LPIP" 

2180 RETURN 

3880 SPUE "0 IMP RES SOB** 

3018 RUN 


0 seu rotulo, nesta versSo, ficara assim: 



CORTES 


DOBRHS 


Listagem para a impressora TIMEX 2040 • 

1 w Z. h U X )*1 P R w‘ o U R 

PPRP TIMEX 2048 
•‘O'* B.C. STEIN 

jj [j -1 

5 PRINT " GUfiL~SERP~5 NUMERO 
DEST H FITP ? ’ * 

18 INPUT FITP 

29 PRINT PT 8,8;" SEU TITULO T 
ERR OUPNTPS LIN HRS? 11 
38 INPUT L 

31 IF L >3 i HiiN PRINT " RilzNCRO 
NO HPXIMG 3 LlNHPS" 

34 IF L > 3 THEN GOTO 38 
48 GQSUB 988 

4 S LLI H — 4 
58 FOR X = 1 TO l 

w- •— t i |~j j | 

68 PRINT PT 8,8j ” ENTRE'COM P 
" ;x; M . L IN HP 11 
78 INkUT H$ 

72 LET B4=flf 


7 R 

LET P=LEN H5 

58 

IF P > 5 THEN 

NO 

MR a IM ■ j 5. Lci 

O w 

IF P > 5 THEN 

188 

G 0 5 U ts 9 0 0 

185 

FflS“ 

118 

FOR F =0 TO P 

128 

LET I= 9 5 0 r00 


138 FOR G =8 TO 7 

148 LET V =PEEK (8*I+G) 

158 FOR H =8 TO 7 , 

168 LET Z = INT CV/2** (7-H) ) /2 
178 Ii* ZOlNl Z THEN PLOT 7 + H.+8 
*F+( 8 -P) * 4 / 38 - G - 8 £ (X + l) 

188 NEXT H 
198 NEXT G 

288 LET R$ = H5 (2 TO j 

218 IF LEN PS = 8 THEN GOTO 300 

228 NEXT F 


3 8 8 

FOR N = 1 TO LEN 6$ 

0 

PRINT PT 

N 4 P f 3; B 5 

348 

NEXT N 


358 

LET i-i=Pi + L 

E N B 5 + 1 

4 <w w 

NEXT X 


vz r>. ,*> 

_* VL’ SL- 

GOTO 1888 


o y y 

ST OP 


908 

PRINT PT 

0,0;" 

» » 

918 

PRINT PT 

1 , 0 ; ° 

♦ * 

920 

RETURN 


,820 

LET P = 21 


.030 

i C7 T~ w — *1 

i_ i— . ! i— -L 
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1040 LET C=0 
1050 LET D = 1 
1055 PRINT RT 0,0;*’ 


1050 

FOP N 

— L- : I U 

*Tj 

ij 

1078 

PRINT 

RT N 

•1 » *• 

j ± / 

1858 

PRINT 

RT N 

c* - »* 
; •-=, 

1055 

PRINT 

RT N 

c • «* 
y P y • 

1898 

PRINT 

R l N 

/ 3 1 ; 

1188 

NEXT 

N 


1110 

FOR N 

— Cl 5 'J 

P O 

1128 

PLOT 

N y 5 


1125 

U N F L. U 

T 12 > 

B 

1138 

NEXT 

N 


1148 

IF C 

T* LJ SIT K i 
! i! L- 1 *■! 

GOT 0 

1158 

LpT c 

= 1 


1 iff: 

G 0 5 U 5 

■“1 «■* .4 

C. M- 


1158 

COPY 



1162 

!***♦ ! •— 
w 



116 P 

GO SUB 

2888 


1178 

iho. L_ $ m 

= 18 


1158 

L. JZT C» 

_c*o 


1198 

LET D 

=8 


1288 

GOT n 

1050 


1588 

PRINT 

TRB 

• •« 

ij f - 

• 1 

1518 

FOR N 

= 11 1 ! 

J 17 


1515 pp I NT RT N y I,' ** ; M 
1520 PRINT RT N, 6 ;* , ; M 
1530 NEXT N 

1 P 3 5 P RI NT RT 15 y 1 ; *' D 0 3 R R 5 " 

1537 PRINT RT 12,26;"CORTES" 

I p 5 8 COPY 
1P P 5 S L 0 U 
1550 STOP 

2009 PRINT RT 7,3; M N." 

2010 IF FITR <10 THEN PRINT hT F. 

2 ;" 80 ";FITR 

2020 IF t ITR> =10 RND FITR<108 TH 
EN PRINT RT 3,2; M 8 M ;FITR 
2838 IF FITR>=188 THEN PRINT RT 
8 ,2;rITR 
2035 RtTUKN 

2840 PRINT HI 2,11; “DRRR COM PUT R 
DOPES’' 

2058 PRINT RT 3,13; ,, PESSOftIS' COM 

II **. 

2850 PRINT RT 4,15; “LOGICR TK 11 
2108 RETURN 
P 8 0 8 R H N D U P R c* 4 0 p* 

3810 RUN 


0 seu rotuio nesta versSo ficara assim: 
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75 











ITU LG 


t * 


i i 

n 



































USO DAS FUNQdES 
ESPECIAIS DO TK-85 


Este capitulo foi escrito especialmente para os proprietaries do com- 
putador TK-85 que tern ao seu dispor uma serie de fundoes exclusivas: 

1) 0 uso do High-Speed, que permite armazenar e carregar programas 14 
vezes mais rapido que a velocidade dos outros computadores pessoais da 
mesma linha. 

2) A possibilidade de armazenar e carregar dados, separadamente dos 
programas. 

0 programs "0 ARQUIVISTA" foi criado especialmente para utili- 
zar estas caracteristicas exclusivas do TK-85. "0 ARQUIVISTA" permite 
criar arquivos para as mais diversas finalidades e armazenar os dados destes 
arquivos em fita, em "high-speed". 

Para que o leitor tenha o maximo beneficio de "0 ARQUIVISTA", 
sugiro que siga rigorosamente as instrupSes abaixo: 

EQUIPAMENTO NECESSARIO: computador TK-85, urn bom gravador 
"Mono" com uma alta relapao sinal ruido, uma fita tipo "Low-Noise" para 
o programs e uma fita tipo "Low-Noise" para cada arquivo diferente que o 
leitor pretende criar. 

EQUIPAMENTO OPCIONAL (e muito util): Uma impressora TK PRINTER 
ou TIMEX 2040. 

Sugiro tamb§m ao leitor, que antes de seguir adiante, ele leia o 
capitulo 29 do Manual do TK-85 e que procure estudar o programs publi- 
cado no N? 5, pagina 26 da revista MICROHOBBY. 

Entre agora com o programs "O ARQUIVISTA" 


2 SLOW 

4 LET T =(32-LEN TS) /2 

5 PRINT , , ,,TRB TTT$ 

7 FOR R=T TO TtLEN T|-i 
10 PRINT m 3,-r; 

12 NEXT R - 

20 PRINT RT 9,5;"VOCE DESEJR:" 
30 PRINT RT 12,2;"1. CRIRR EG 
RRURR FICHR FISICR" 

60 PRINT RT 15,2,' "2. PESQUISRR 
FICHR LOGICR" 

80 IF INKEV$="1" THEN GOTO 100 

w 

100 IP INK5V$ = "2 ” THEi-4 GOTO 4-00 

0 

110 G OT 0 S 0 
120 CL. 5 

130 PRINT ,,,>" E5C0LHR 0 NOHE 
DO HR0UIUOs" 
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160 PRINT , ESCOLHA 0 NOME 

£ 0 NUMEkO max. de digitOS, DOS 
TRES GRUPOS DE DADOS." 

155 PRINT ESCOLHA, DEPOIS 

0 NUMER0 D£ FICHAS L061CAS 

QIJE TERR CADR FICHA FISICA.” 

167 PRINT , , , , " FINALMENTE, ARM 
AZENE EM FITA 0 AROUIUO, PARR U 
SO POSTERIOR." 

170 PRINT AT 19 , 6J"ENTRE NEW LI 
NE. " 

175 PAUSE 4S4 
180 CLS - 

185 PRINT "ENTRE COM 0 NQME DO 
AROUIUO." 

190 INPUT T $ 

200 CLS 

205 PRINT "ENTRE COM 0 TITULO D 
0 1. GRUPO DE DADOS." 

210 INPUT A$ 

220 CLS 

230 PRINT “QUANTOS DIGITOS T£RA 
",A $; ” , NO MAXIM0?'' 

24-0 INPUT 5$ 

241' IF S$ = "" ! HEN GO i 0 240 

242 GOSUB 9700 

243 IF NOT OK !HEN GOTO 240 

244 LET A=UAL S$ 

A CT i 

250 PRINT •’ENTRE COM 0 TITULO D 
j 2 * GRUhO D*tz DADOS« 

250 INPUT 5s 
*“* 1 R 5 [~" ^ *— 

270 PRINT “OUhNTOS DIGITOS 7ERP 
NO MhXIMG? " 

250 INPUT 5$ 

281 IF S$ = ” " THtN GOTO 280 
V 2 L? U O U LJ Vl 1 0 

283 IF NOT OK THEN GOTO 280 
28 4 L ET 8 = U Pi L 5 $ 

2 8 C L S 

220 PRINT “ENTRE COM 0 TITULO D 
0 3. GRUhO DE DADOS , m 
300 INPUT C$ 

305 CLS 

310 PRINT 11 QUANT OS DIGITOS TERP 
;J , 0 $ , " , NO MAX IMO? “ 

320 INPUl 5$. 

321 IF S$ = ' ,M THEN GOTO 320 

322 60SUB 9700 

32 3 IF N0T 0 K THEN G0T0 32 O 
324 LET C=UAL S$ 

330 CLS 

342 LLT X=Htu 

344 LET Y=X + C 

3 4 i> C L S 
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350 PRINT "OUANTAS FICHAS LOGIC 
AS TERA CADAFICHP FISICA?" 

355 INPUT S$ 

356 IF S $ = "" THEN GOTO 35=, 

357 GOSUB 9700 

358 IF NOT OK THEN GOTO 355 

359 LET D=UAL 5$ 

350 CLS 

365 PRINT "CONFIRA 05 DADOS•“ 

B° AROUIUO:", 

370 PRINT ,,,,TAB'4;"TITULOS",” 
N. DE DIGITOS" 


cr i» • » rv cr .**• *» 


390 PRINT , ,"1. " ; A$; TAB 21;A 

400 PRINT "2, B$; TAB 21; B 

410 PRINT "3. ";C$;TAB 21; C 

420 PRINT AT 14,0.;D;" FICHAS Lu 
GICAS/FICHA FISICA." 

430 PRINT AT 17,2;"OS DADOS EST 
AO CERTOS?(S/N)" 

440 INPUT 1$ 

450 IF I$ = ‘ r N" THEN GOTO 180 
500 CLS 

Sl0 PRINT Ai 5,0;“ AGORA GRAU 
E ESTE AROUIUO NO IN1010 0 

E UMR FITP NOUh, PARA 

POSTERIOR ARMAZENAM 

ENTO D£ DADOS." 

520 PRINT AT 12,3;"ENTRE ""REC" 
" NO GRAUADOR-, E ""N 

EU LINE""." 

560 PAUSE 4s4 
562 LET INIC10=1 
565 CLS 
57© GOTO 9810 
1005 CLS 

.1010 DIM E$(D*Y) 

1020 DIM N$(A» 

1025 DIM MS(B) 

1030 DIM 0 S(C' 

1040 LET 0=1 
1050 FOR 1=1 i0 D 
1060 SCROLL 
1065 PRINT A$; ••=“ 

10 S 7 S URUL L. 

1070 INPUT NS 
1075 PRINT N$ 

1080 SCROLL 
1085 PRINT B$;"=" 

1067 SURuLl 
1090 INPUT MS 
1095 PRINT MS 
1100 SCROLL 
111© PRINT C$J “ =" 
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1115 SCROLL 
1120 INPUT 0$ 

1130 PRINT 0$ 

1140 SCROLL 
1150 PRINT 

1150 LET F $ =N $ + M $.+Q $ 

1170 LET E$(Q TO O+LtN r$-l> 
- lr 11S0 let 0S0 + LEN F$ 

'^g-esc rn&t 1190 NEXT I 


'T % ~ D-f;, 


1200 SCROLL _ 

1210 PRINT "FIOHP FISICP COUPLEt 

fl" 

1213 SCROLL 

1£14 PRINT "P/GRPUPR DIGITc <NcU 
LINE > " 

1220 IF INKEY$="” THtN GOTO 1220 
2000 LET F=F+1 
2002 LET INIC10=1 
2005 CL5 

200 F PRINT "P/GRPUPR PPERTE REuO 
RD DO GRPUP-DOR E NEW LINE" 

2007 IF INKEY$="" THEN GOTO 2007 
2010 LET Z=LENE$ 

2020 LET Z$ = ”E" 

2030 LET BC=USR 9008 

2040 SLOW _ _ 

2050 IF BG=0 THEN PRINT PT 7,3; " 

OK ^ 

206© IF SCO0 THEN PRINT PT 7,3; 
"ERRPs""BC 

2070'PRINT ’‘N0 UP GRPURCP0 <S/N)? 


f > / 


2080 IF INKEY$=”5" THEN GOTO 100 

2085 IF INKEY$="N" THEN GOTO 1 
2090 GOTO 2080 
4005 CLS 

4010 PRINT PT 6,3;"UOOE DESEUP P 
ESOUISPR ?" . __ „ 

4015 PRINT PT 7,3;“RELPCPu DC: 
4020 PRINT PT 10,0;"1, ";P$;"S" 

4030 PRINT PT 12,0j"2. ";B$j“5" 

4040 PRINT PT 14,0; "3. C$1 ,, S , ‘ 

4050 IF INKEY $ = "1" THEN GOTO 480 
0 

4060 IF INKEY $ = "2" THEN GOTO 800 

0 _ 

4.070 IF INKEY $ =”3” THEN GOTU 800 

0 

4080 GOTO 4050 
4500 GO SUB ’9765 
4505 CLS 

4510 PRINT " OUPL E* 0 ,, ;P$;”'? M 
4520 INPUT L $ 

4530 PRINT L$ 

4540 GOSUB 9000 
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4545 FOR S = 1 TO F 
4550 LET Z=0 
4560 DIM E$(D*Y) 

4570 LET Z$="E" 

4580 LET BC=USR 9189 


4620 

IF 3C < >0 THtN GOTO 46& 

0 

4t» U 0 

FOR 1=1 TO 0*Y STEP Y 


4640 

IF E$ (I TO I+LEM L$-l) 

=Ls 

HEN_ 

RHSUB 3000 


45 4 

NEXT I ' 


4647 

NEXT S 


41 1 4 

GOTO 3400 


4650 

SLOW 


w ^ CT 

U. Fj 

PRINT ”ERRO = ";BC 


4660 

PRINT 


4570 

PRINT “EMTRE ’“’STOP** 1 * 

NO G 

PUPD 

OR’, " 


4630 

PRINT “ENTRE N/LPfiRfl 

N 0 U H 

PESOUISP « 11 


46 3 5 

IF INKEY$ = "■'• THEN GOTO 

46 3 

4690 

GOTO 4000 


5000 

G 0 S U B 976w* 



8005 L 8 

5010 PRINT “OUPL E* 0 ’•;B$; , ‘?" 
5020 INPUT L$ 

5030 PRINT L $ 

8040 G0S U8 9000 
5045 FOR 5=1 TO F 
5050 LET Z=0 
5060 DIM E$CD*Y) 

5078 LET Z$ = "E-" 

5080 LET BC =U.SR 9189 

5100 If 8C<>0 THEN GOTO 4680 

5120 FOR 1 = 1 TO D*Y. STEP Y 

5130- IF E$.( I+P TO I + P+LEN L$-l)= 

L$ THEN GOSUB 8000 

5140. NEXT. I 

5300 NEXT S 

8400 GOTO 


5645 PRINT 

5650 PRINT "UOOE DESEUP FPZEP Nu 
UP PESOUISP?" 

5655 PRINT TPB 25; " CS/N.i " 

5660 IF INKEY$="S" THEN GOTO 400 

1* ... • •• • ... /■’ ... , • 

5655 IP INKEY$ = "N , ‘ THEN GOTO 1 
5670 GOTO 5560 
5000 GOSUB 9765 
6005 CLS 

5010 PRINT “ OUhL E a 0 
5030 INPUT L$ 

5040 PRINT L$ 

5050 GOSUB 9000 
5055 FOR 5=1 TO F 
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p *7 cr cr «-• i r 
w * O u* i— •-.» 

8750 PRINT "NOW PESQUISR (#/N) 7" 
8770 IF INK£Y$ = "5“ THEN GOTH 4®0 
0 

8780 IF INKE'Y$ = M N M THEN GOTO 10 
8790 GOTH #770 
3000 PRINT 

9010 PRINT '* REBOSINE R FTTRL *' 
9020 PRINT VENTRE NEW LINE E“ 
9030 PRINT "COLOQUE 0 GRRURDOF; E 
M “ "PLRY" " • - 

304.0 IF INKEY$ = *'THEN GOTH 904.0 
9050 HLS 
9100 RETURN 

9600 CL5 

9601 PRINT 

9602 PRINT 

9603 PRINT 

9605 PRINT “NRG FOI ENCONTRRDO E 
5TE DRDO“ 

9610 PRINT 

9620 GOTO 564-0 

3700 LlT OK=0 

3710 FOR J = 1 TO LEN 5$ 

9720 L u . 5$ (J) =“ ** OR S$(J)< , *0” O 


R 5S id) > “3.‘\ THEN 
9740 NLX I »J 
3750 LET HK=i 
3750 RETURN 
3785 LET IHP=0 
3757 OLS . 

9770 PRINT “U. E 
ES50RR CS/N)? u 


URN 


ESTfl* USflNDO IMPR 


3 r i cz. 

LET N = 1 

3775 

INPUT 1$ 

9780 

IF 1$ = “ 5 ,f THE 

9 7 35 

DIM P$(100*0) 

9730 

U L c* 

3735 

r i cr*T * * lT ; r - * 

r\| K t *■* 

9500 

LET INIC10=0 

Q O -t «*>. 
r> w JL VL : 

RRND USR 5405 

Q O 

3 c. 

IF INICIO THE: 

<~ o cr 

=> U* 

LET F=0 

t__l -_I 

GOTO 120 
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Apos ter digitado todo o programa, armazene-o em fita (nao esque- 
ga, utilize uma fita "Low Noise" eseu melhor gravador mono). 

Para "salvar" corretamente o programa entre "REC" no seu grava¬ 
dor e "GOTO 9800". 

Esta fita gravada passara a ser a fita mestre da qual voce carregara o 
programa no TK-85 cada vez que for criar um novo arquivo. 

Para demonstrar ao leitor como utilizar o programa "0 ARQUIV|S- 
TA" vamos criar, como exemplo / um Arquivo de datas de aniversarios'de 
parentes e amigos e que contenham tambem uma serie de informapSes 
destes parentes e amigos. 



0 programa permite que voce armazene e depois obtenha as seguin- 
tes informapSes: 

1) Os membros que compSem uma determinada familia. 

2) As preferences destes membros {afinal voce deve comprar urn presente 
adequado para cada gosto). 

3) Adatadosseusaniversarios. 

4) Entrando no computador com uma determinada data, voce ficara sa- 
bendo quern faz anos nesta data. 

Proceda da seguinte forma: — carregue o programa da fita mestre para o 
seu TK-85 (em High-Speed — digitando RAND USR 8630). 0 programa ini- 
ciar-se-a automaticamente pedindo o nome geral do arquivo; batize-o, por 
exemplo: "Arquivo deAniverscirios". 

Informe o nome do primeiro grupo de dados: "Nome de familia"; 
agora informe o numero maximo de digitos que podera ter o "nome de 
familia" (digamos 10). 

0 segundo grupo de dados sera "Nome, nascimento e gosto" e tera, 
digamos, 30 digitos (nunca mais que 32 digitos). 

0 terceiro grupo chamar-se-a "Data Natalicia" e tera 5 digitos no 
maximo. 

Agora o programa ira perguntar quantas fichas logicas tera cada 
ficha fisica. 

Como voce ja deve saber, uma ficha fisica e urn conjunto de fichas 
logicas que compoe urn bloco de informacoes que sera armazenado de uma 
so vez em fita. Por sua vez, uma ficha logica e aquela que, no nosso exem¬ 
plo, contem uma serie de informacoes, isto e, um membro de uma familia, 
com sua data natalicia e seus gostos. Como todo armazenamento sera feito 
em High-Speed, isto e, levara pouco espapo de fita e pouco tempo, sugiro 
agrupar pelo menos 15 a 20 fichas logicas em cada ficha fisica. Informe ao 
computador a sua escolha (lembre-se que uma vez escolhida a quantidade 
de fichas logicas por ficha fisica, este dado ficara fixo e imutavel para este 
arquivo). 

CQNFIRA OS DADOS: 

NOME DO ARQUIUO; 

■BOBaBnaai 

RRQUIUO DE ANIUERSARIOS 
TITULOS 

1. FRMILIA 10 

2. NOME-NASC.-G OST 0 3O 

3. DATA 5 

15 FICHAS LOGICAS.••-FICHA FISICA. 

OS DADOS ESTAO CERTOS'? (S/N) 
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Neste ponto,o programa mostrara as informapSes fornecidas,e voc§ 
podera aprova-las ou refaze-las se houver algum erro. 

AGORA GRAUE ESTE ARQUIUC 
NO INICIO DE UMA FITA MOUA 
PARA POSTERIOR 
ARMAZENAMENTO DE DADOS. 

ENTRE 'REC NO GRAUADOR 
E ”NEU.I LINE". 

Uma vez aprovados os dados, voce sera convidado a armazenar em 
fita o programa, ja com o assunto e os titulos definidos. Aceite o convite, 
pegue uma fita nova, (das boas, lembre-se), e "salve" o programa no inicio 
da mesma. A fita contera o programa e,mais tarde,o arquivo com todos os 
dados. Sugiro que voce use uma fita para cada Arquivo de dados (isto e, o 
programa e o conjunto de fichas fisicas com os seus dados respectivos). 

Ap6s ter "salvado" o programa (ou quando voce for carrega-lo 
novamente no computador numa outra ocasiao), ele ja iniciara com o 
titulo do arquivo e permitira a voce entrar com dados ou pesquisar fichas 
I6gicas existentes. 

ARQUIUC DE ANIUERSARIOS 


UOCE DESE-JA: 

1. CRIAR E GRAUAR FICHA FISICA 

2. PESQUISAR FICHA LOGICA 

Como voce ainda nao entrou com dados, ainda nao havera fichas 
logicas aserem pesquisadas. Escolha a Oppao 1. 

Agora voce deve entrar com tantos grupos de informapdes por vez, 
quanto for o numero de fichas Idgicas que voce definiu por ficha fisica. 

Exemplo de uma ficha I6gica: 

Nome de famflia: Almeida 

Nome, Nascimento e Gosto: Eduardo,-69-Microcomputador 
(rapaz inteligente) 

Data Natalicia: 16/05 
e assim por diante. 

Agora,grave em fita (logo apos o ponto da fita onde termina a grava- 
pao do programa) a ficha fisica criada. 

Ap6s a gravapao voce podera formar e gravar outras fichas fisicas 
(ou nao). Cada uma das novas fichas fisicas devera ser "salvada" na sua 
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fita uma ap6s a outra, com um pequeno intervalo de 1 a 2 segundos entre 
elas. Se voce quiser adicionar outras fichas fisicas em outra ocasiao, tudo 
bem. Carregue o programa no computador. Depois leve a fita ate o fim da 
ultima ficha criada e grave, a partir dai, novas informapOes. 

As informacoes que voce for armazenando nas sucessivas fichas fi- 
sicas nao necessitam estar em qualquer ordem especifica (por exemplo: 
todos os membros de uma familia juntos; ou data de aniversario crono- 
I6gicas). Quando voce for pesquisar informapQes do arquivo (e veremos 
logo adiante como), elas serao conseguidas nao importando a sua ordem 
de armazenamento. 

Suponhamos agora que voce ja montou seu arquivo com informa- 
p6es de seu enorme circulo de amigos e parentes. Voce agora quer saber 
quais as datas de aniversario de todos os membros da familia Almeida. Pro- 
ceda assim: 

Carregue o programa 

Escolha a opp§o 2 do menu inicial. 

Escolha depois a opp§o 1 do menu seguinte: Nome de familia. 

Digite entao a informapao: Almeida. Informe agora se voce tern 
impressora ligada. Depois entre NEW-LINE e ligue o gravador. Deixe a fita 
correr (na posipao EAR-EAR dos contatos, e Ibgico). 0 computador pes- 
quisara as informapeos de todas as fichas fisicas armazenadas ate a ultima. 

Desligue entao o gravador. 

Se voce estiver com a impressora acoplada, ela comecara a funcio- 
nar automaticamente e imprimira todos os dados da familia Almeida. Se 
nao houver impressora por perto, as informapoes comecarao a percorrer a 
tela e voce podera le-las ou copiar numa folha de papel os dados que voce 
procurou. 

Se voce quiser alguma outra informapao, por exemplo: quern faz 
anos no dia 20/07 proceda assim: responda sim ao computador apos a 
pesquisa anterior. Volte a fita para o ponto de inicio de dados (logo apos a 
gravapao do proprio programa). Escolha a opcao 3 do Menu e deixe o 
computador fazer esta nova pesquisa. 

Para nao haver confusao no controle de programas e dados na fita, 
sugiro que voce anote sobre o rotulo de informapbes da fita os numeros do 
contador do gravador. Assim, vejamos: 

Programa 000 — 010 

1? Grupo de fichas 011 — 012 - 

2? Grupo de fichas 014 — 015 

e assim por diante. 

Cada vez que voce for acrescentar novo grupo de fichas fisicas, leve 
a fita ate o ponto final das fichas gravadas anteriormente e,so ai,"salve" as 
novas informacOes. Para ler informapoes contidas na fita comece a leitura 
sempre na contagem 011 (usando o nosso exemplo). 

Gostou? 
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JOGOS 


Finalmente, vamos aos jogos,pois ninguem e de ferro. 

Este capitulo permite ao leitorfazer poesias com "0 POETA"; 

Se divertir jogando "LUDO" com a molecada; 

Ganhar dinheiro (sera?) com os jogos "VINTE E UM" e "CACA NIQUEIS", 
e impressionar seus amigos alemaes com a tabulacao dos resuitados do seu 
jogo de "SKAT". 

O Poeta 

0 programa "0 POETA" foi criado para pessoas sensfveis e poe- 

ticas. 

Entre com o programa e depois apresente-o aos seus familiares. Eles 
vao adorar. 

0 programa "0 POETA" gera lindas poesias a partir de 17 vocabulos 
que voce mesmo escolhe e introduz no comoutador. Veiamos como: 

1) Entre com a listagem abaixo 
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115 RETURN 

120 PRINT H$;“ "; 

125 RETURN 

130 PRINT IS; fi "; 

135 RETURN 
140 PRINT U$;" 

143 RETURN 
150 PRINT K$; v ■ 

155 RETURN 

160 PRINT 

165 RETURN 

170 PRINT M$;“ 44 ; 

175 RETURN 

130 PRINT N$; " ”; 

135 RETURN 

190 PRINT 0$; 11 

195 RETURN 

280 PRINT P$; M 

205 RETURN 

210 PRINT 0$;" "; 

215 RETURN 
10.00 PRINT 

1001 PRINT 

1002 PRINT 

1003 RETURN 
2000 CLS 

2005 PRINT RT S,0;”UQCE, COM SUP 
UElH POETICR ; lRH CRIhR 17 PhLh 
URR5 QUE bcRHO U3HL?H3 HuH MI 

M PhRR GERhR LIND05P0E M fi 5 " 

2010 P 5 H U 3* E 3 0 0 
2015 CLS 

2020 PRINT M ENTRE COM HS PfiLRURh 
5. UMR R UMfi" 

2030 PRINT 

2050 PRINT -1. "J 

2053 INPUT fi $ 

2057 PRINT R$ 

2060 PRINT "2. 

2063 INPUT B$ 

2067 PRINT 5$ 

2070 PRINT “3. 

2073 INPUT C$ 

2077 PRINT C$ 

2030 PRINT "4. “i 
2033 INPUT C*$ 

2037 PRINT D$ 

2090 PRINT M 5 a 
2093 INPUT E $ 

•- i~i ~7 O £T‘ t”T — ± 

2100 PRINT “6, 

2103 INPUT F$ 

21 0 7 P PIN ! F $ 

2110 PRINT "7. 

2113 INPUT G$ 

2117 PRINT G$ 


2120 

PRINT 

It 

O • T O 

i— -L. L_ w 

INPUT 

H $ 

P i p 7 

PRINT 

H $ 

Jl vJ 1 w 

PRINT 

" 9 . 

213 3 

INPUT 

i$ 

2137 

PRINT 

1$ 

2140 

PRINT 

’•10 

2143 

INPUT 

J* 

£1. J, » 

PRINT 


2150 

PRINT 

'’ll 

2133 

INPUT 

v 4 ft* 

2157 

PRINT 

K $ 

2160 

PRINT 

”12 

2163 

INPUT 

i_ $ 

* i ^ 

£1 JL w 1 

PRINT 

L$ 

2170 

PRINT 

" 13 


INPUT 

M$ 

P 177 

4m -1. 1 1 

PRINT 

M $ 

2130 

PRINT 

" 14 

2133 

INPUT 

N $ 

c! 1 c > 7 

PRINT 

N$ 

2190 

PRINT 

-15 

2193 

INPUT 

0$ 

2197 

PRINT 

0$ 

2200 

PRINT 

"16 

2203 

INPUT 

P$ 

2207 

PRINT 

P $ 

2210 

PRINT 

“17 

2213 

INPUT 

0$ 

2217 

PRINT 

0$ 

2220 

PAUSE 

270 


2230 C L S 
2240 GOTO 3210 
3000 CLS 

3005 PRINT "PfiLfiURfiS CUE ESTRO N 
R MEMORIfi: ,r 


H * 

3020 

PRINT 

M *2 C 
gC 

fiPPREC 

J 

EM DE 

ERRO 

/ 

3030, E 


210 , 

RP 03 1 

i i 

9 


l * t 

3025 

PRINT 




3030 

PRINT 

"1. 

"; fi$ 


3040 

PRINT 

"c'« 

B$ 

it « 

3050 

PRINT 

O * 

" ; c$ 

J 

3060 

PRINT 

*'* 4. 

“ ; D$ 


3070 

PRINT 

j i 

* 

**; E$ 

i i . 

3030 

PRINT 

3 ■ 

f $ 

i 

3090 

PRINT 

t* • 

"G$ 


3100 

PRINT 

3 r 

" ; H$ 

j i • 

3110 

PRINT 

"9. 

1$ 


3120 

PRINT 

”10 



3130 

PRINT 

”11 

. “;K$ 


3140 

PRINT 

”12 

. ”;L$ 

i 

3150 

PRINT 

"13 



3160 

PRINT 

”14 

. ";n$ 
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3170 PRINT 11 15, “ ; 0$ 

3130 PRINT ”16, " ; P$ 

3190 PRINT "IT, **; ©$ 

3191 PAUSE 540 
31 y H CL'o 

3193 GOTO 3210 
■3194- CLS 

3196 PRINT AT 7,2;"COLOOUE 0 GRP 

UfllDOR EM *' "REC”" ENTRE ” 

"NEW LINE. 

3197 INPUT Z$ 

3iyS lL3 

3200 SPUE "0 POETP' ■ 

3205 CLS 

3210 PRINT PT 3,11;" 0 POETP " 

3215 PRINT PT 4-, 11; "“ ,l 
3220 PRINT PT 7,3;"U0CE OUER..," 
3230 PRINT PT 9,1;"1. CRIPR UM 
P NOUP POESIP” 

3240 PRINT PT 11,1;"2. REUER P 
S PPLPURPS OUE ESTPO 

NP MEHORIP" 

3250 PRINT PT 14,1;"3. GERPR U 
MP POESIP COM PS 

PPLPURPS OUE EST 

PO NP MEMQRIP" 

3260 PRINT PT 16,1;“4. GRPUPR 
PS PPLPURPS DP M 

EMORIP" 


3270 

IF 

INKEY $ = “I” 

THEN 

RUN 2 

000 

3230 

0 

3290 

IF 

lN.KEY$ = "2" 

THEN 

GO I 0 

300 

IF 

JNKEY$="3" 

THEN 

GOTO 

i 

3300 

IF 

INKEY $ = "4" 

THEN 

GOTO 

319 


•3310 GOTO 3270 
3500 SLOW __ _ 

3510 'PRINT 'PT"21 “ 0 T "P = N0UP P0ESI 
P, C=CQPIPR■ M=MENU" 

3520 IF INKEY$="P" THEN GOTO 1 
3530 IF INKEY$="C" THEN GOTO 360 
0 

3540 IF INKEY$="M" THEN GOTO 320 
5 

3550 GOTO 3510 
3600 COPY- 
3610 GOTO 3205 


2) Passe o programs para o gravador 
a- Entre "GOTO 3200" 
b- Coloque o gravador em "REC" 
c- Entre NEW LINE 
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3) Ap6s a gravapao o programs apresentara o Menu 



UOCE OUER... 

1 . CRIPR UMP NOUP POESIP 

2. REUER PS PPLPURPS OUE 

ESTPO NP MEMORIP 

3. GERPR UMP POESIP COM 

PS PPLPURPS 
OUE ESTPO NP MEMORIP 

4> 1 G R H U P R Ho PHLH UR Ho 

DR MEMORIP 

4) Escolha a Oppao 1 

5) 0 programa convida voce a entrar com 17 palavras a sua escolha 
a- escolha uma palavra 

b- entre com ela no computador 
c-entre NEW LINE 

d- continue com as palavras ate completar 17. 

6) 0 programa volta ao Menu principal 

7) Se voce quiser rever as palavras escolhidas entre com a Opcao 2. 

8) Voce vera, entao, por alguns segundos, os 17 termos escolhidos e 
depois retornara ao Menu. 


P^^URPSOUE^^TPg^^lEM^lP^^ 

SE fiPPRECER P MENSPGEM DE ERRO 
2/3030, ENTRE GOTO 3210, PROS 1, 

1. 0 SOL 

2. P BRISP 

3. PS ONDRS 

4. BRILHPNDO 

5. P CHUMP 

6. CRINDO 

7. RF 

8. HORPS PPSSPNDO 

9. CREPUSCULO 

10. SEMPRE 

11. NUNCP 

12. COM 

13. SEM 

14. ELE 

15. ELR 

16. BEIUOS 
17■ LhGRIMHO 
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9) AG0RA,0 GRANDE MOMENTO . . . 

EscolhaaOpgao3 

— O computador gerara uma poesia usando as 17 palavras que sua veia 
poetica escolheu. 

NUNCP R BRISR 
ELR R CHUUR 


LRGRIMHS NUNUH HURRw 1 PRw»HND0 o E 
HPRE BRILHRNDO 0 SOL 
CREPUSCULO BRILHRNDO HORRS PRSSR 
NDO 


0 SOL 
H BR I*oH 

..,GRINDS 0 SOL 
BRILHRNDO NUNCP SEMPRE 

R BRISR 

P^NOUR POE SIR - !'"" C = COP IPR ! l Tl ll = > HENU ,,r 

10) Se voce possuir um TK-PRINTER, podera guardar para sempre aqueles 
poemas melhores que o computador gerou. 

Entre "C" quando a poesia estiver apresentada na tela. 

11) Para gerar nova poesia entre "P" 

12) Para voltar ao Menu principal entre "M" 

13) Voce pode armazenar para sempre o programs com os 17 termos 
escolhidos: 

a- Escolha a "OpgSo 4" do Menu 

b- 0 programs sera entao gravado com as palavras escolhidas. 

14) Se voce quiser entrar com o programs na memoria entre com LOAD 
"0 POETA" ou LOAD ” # \ 

15) Durante a utilizagao do programs evite entrar com -'RUN", pois isso 
apagara todos os 17 termos da memoria. 

16) Neste caso, ou ao entrar pela primeira vez com o programs, ele nao 
tera nenhum dado na memdria. Se voce entao escolher a Opgao n? 2 sera 
apresentada a mensagem de erro 2/3030. Neste caso entre com "GOTO 
3210" e "NEW LINE" e escolha a Opgao 1 do Menu. 

Muito bem, agora maos a obra. 

"Vinte e Um" 

O leitor certamente conhece bem o jogo "VINTE E UM" e vai gostar 
bastante desta versao na qual jogara contra o seu computador. 

Entre com o programs a seguir: 
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REM J 

10 

PRINT "8 

M ; RT 

2,10; *'H3i 

20 

PRINT ,, 

TRS, 


PS PPRP HIM.' 1 

30 

PRINT ”B 

NHR , 

tz. 

z SURw* ■ 

40 

PRINT "Si 


•J u L? U z C LRzoI G U ‘o 


TRRDUZIDO 
POR B.G.STEIN 
JUN 1934. 


EU TIRO 0URTRO GRR 
DURS PRRR UOGE, DU 


ENTRE ‘“‘S”", CRSO CONTRRRIO ENT 
RE 11 “N" M . " 

SO PRINT “GRNHR 0UEM GOHPLETRR 
21 PONTOS * ROUELE QUE GOHPLETRR 
MRIS DE 21 PONT OS, PERDEU. ,r 
55 PRINT *‘0 EMPRTE E* MEU . *’ 

SO PRINT RT 13,0; "SSBBSBHl, DI 
GITE QURLOUER TEGLR . '* 

70 PAUSE 4E4. 

300 LET R1=0 
310 LET B1=0 
350 GLS 
360 LET D=0 

370 LET P=0 

371 LET ZXss-10 

372 LET SP=0 
330 G0SUB 320 
390 LET R=G 
400 GQSUB 320 
410 LET S =C 

4 H 0 y u U E* o 2 0 
430 LET T =C 
440 GQSUB 390 

450 LET U=C 

451 PRINT RT 2,0; ,, H 

452 PRINT PIT 3,0; "IH 

453 PRINT PT 4,0"S U~ . 

454 PRINT RT 5,0; "il§| 

455 IF R <10 THEN GOTO 459 

456 PRINT PT l,0;“f".;R.= "i 

457 print pt 5,0; "L"; r; "J wmm" 


CPSO CONTRPRIO ENT 


. DI 


X = -10 




IF R <10 THEN GOTO 459 




455 PRINT RT 1,0 
457 PRINT RT 5,0 
453 GOTO 461 
459 PRINT RT 1,0 


R * ii] 
s 

;R; " 


If! 


450 PRINT RT 


i,0; R; "HT;R;" m» 
5,©;R; “«”;R; " ill 


451 PRINT RT 3,0;“UOGE TEH: M 

452 PRINT RT 0,O;"EU TENHO:” 

453 PRINT RT 1O,0; -I W&l' 

454 PRINT RT 11,0; “i pi i” 

455 PRINT RT 12,0; M 1»I M 

456 PRINT RT 13.0; ‘i Hf I” 


97 







4.87 

468 

4.FQ 

470 

471 

A O 
l SHm 

473 

474 

475 

476 

477 

j »*** 

H- i W 

479 


481 

482 


IF T > 

PRINT 

PRINT 

G OT 0 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

IF U< 

PRINT 

PRINT 

111 I ] IJ 

PRINT 

PRINT 

PRINT 


9 THEN 
PT 9,8 
RT 14, 
473 

PT 9,8 
PT 14, 
PT 18 , 
PT 11 , 
PT 12. 
PT 13 . 
18 THEN 
PT 9,5 
HT 14 « 


GOTO 471 

♦ -r* » ii PQl ii * t 
I inn hi v 

/ * :♦;*»:*> $ * 

Ttent , T 


. ..p.. ;T ; ••■§«• 

0 ; "It” ; T; " J' 

i—* , nS V t, 

S i 1 1 |jvM S i, 
i 5 IvvX>\v* 9 

cr • 

P .* 5 S 

GOTO 481 

; '•I**' ; M; 

5; 


PT 9 5 
hT 14 
HT t* r 0 


J u; ‘ W*U 

s;uj "SiTjU 

; "UOCE TEH 


tU 

500 

518 

528 

530 

548 


LET D = Rt 5 
LET P=T+U 

IF P =21 THEN GOTO 648 
G05115 950 

IF L =1 THEN GOTO 698 
IF D<=15 THEN GOTO 748 


551 

PRINT 

RT 

P s * 

it 

1 S 

552 

PRINT 

RT 

3,5; 

11 

| £?>>>x 

g zmm 

cr cr-T- 
D O 

PRINT 

<R i 

4-, 5; 

1 « 

I mm 

r VAViVA 

554 

PRINT 

RT 

5,5; 

t * 

am 


crcrcr 
1—* ‘J w 

IF 5 >9 

TH 

fcN 

GOTO 559 

556 

PRINT 

RT 

1, 

cr * »z * *• ihhiWf • • • ■— 

P, Oj Wm t •-* 

R57 

PRINT 

RT 

6 , 

5, Oj mm i p 

558 

GHTn F, 

61 



559 

PRINT 

RT 

1, 

P, g .* Oj ^ 

558 

PRINT 

RT 

, 

5; "fc"; 5; "J" 

561 

PRINT 

PT 


8; " EU TENHO; 

578 

PRINT 

RT 

8, 

8;"UOCE TEM: 

580 

IF P > D 

TH 

EN 

GOTO 628 

500 

PRINT 

PT 

16 

, 8;"EU GfiNHEI 


585 LET Rlsfil+l 

610 GOTO I860 _ 

628 PRINT PT 15.8; "*** 11518 
5Bj***" 

525 LET BlaBl+1 

638 GOTO I860 

658 IF D =21 THEN GOTO 578 

650 GOTO 551 


678 

PRINT 

hT 

•1 "T 

NHO 21";RT 

*1 o 

i , 

0; 

6 8 8 

G OT 0 5 

61 


598 

60S.U B 

898 


780 

P RI NT 

RT 

18 

781 

PRINT 

RT 

11 

782 

PRINT 

RT 

12 

783 

PRINT 

RT 

13 

784 

IF 09 

TH 

EN 

705 

PRINT 

QT 
n * 

9, 


706 PRINT PT 14,5P;C; M ia“;C 

707 GOTO 710 

708 PRINT PT 9,5P; ’T";C; "H” 

709 PRINT RT 14 , SP ; "fc"■; C ; "J" 

718 LET P=P+C 

712 PRINT RT 8,8;"UOCE TEH ; : P 

715 IF P > 21 THEN GOTO 600 
73© GOTO 530 

740 PRINT RT 2,ZX,"lp 

741 PRINT RT 3,ZX;"il§ 

742 PRINT RT 4,ZX;“lp 

743 PRINT RT 5,ZX; M i|| 

744 IF 5 <10 THEN GOTO 748 

745 PRINT RT 1, ZX; "f “ ; 5 ; ,,J I" 

746 PRINT RT 6 , ZX ; "fc“ ; 5 ; "J" 

747 GOTO 750 

748 PRINT RT I,ZX;5; "SR" ;S 

749 PRINT RT 6 , ZX; 5 ; ; 5 

75© PRINT RT 0,0; "EU TENHO: 51 ; D 

751 GOSUB 82© 

760 LET D=D+C 

770 PRINT RT 2 , ZX; "l ||| I” 

771 PRINT RT 3,ZX; "1 WM |" 

772 PRINT RT 4 , ZX; "f g 

773 PRINT RT 5,ZX; "I11 I 

774 IF 09 THEN GOTO 778 

775 PRINT RT 1,ZX; C; “■“j C 

776 PRINT RT 6 ,ZX; 0; "S" ; p 

777 GOTO 788 

778 PRINT RT 1, ZX; "f "; C; "*l" 

779 PRINT RT 6 , ZX ; “If**; C ,* "Jt” 

780 PRINT RT 8,8;"EU TENHO: n vD 
790 IF D > 21 THEN GOTO 620 

80© IF D < =16 THEN GOTO 758 
810 GOTO 561 

820 LET C = INT <RND*ll)'+l 
825 LET ZX=ZX+5 
827 IF ZX > 29 THEN GOSUB 2018 
838 IF C=ll THEN GOTO 858 
84© GOTO 888 

850 IF (D+C) >21 THEN GOTO 878 
868 GOTO 888 
876 LET C=1 
888 RETURN 

890 LET CsINT (RND*li)+1 
895 LET SP=SP+5 
§97 IF 5P>29 THEN GOSUB 2010 
90O IF 0=11 THEN GOTO 920 
910 GOTO 950 

920 IF (P+C) >21 THEN GOTO 94-0 
930 GOTO 950 
94.0 LET 0 = 1 

Qtrr* pjr-ri inn 

965 PRINT RT 16,8; "UOCE QUER Uhl 
R CRRTR? (S/N)“ 

978 IF INKEY*s ,,M THEN GOTO 978 





975 PRINT RT 16,0;” 

11 

980 IF INKEY$="5" THEN GOTO 102 

0 

990 IF INKEY$ = ”N" THEN GOTO 104 

0 

995 GOTO 965 
1020 LET L=1 
1030 GOTO 1050 
104-0 LET L=0 
1050 RETURN 

1060 IF B1<R1 THEN PRINT RT 17,0 
; "E5TR* ” ; Rl; " : ”; Bl; " PRRR HIM. " 

1061 IF B1>fi1 THEN PRINT RT 17,0 
; ”ESTR" Bl; " : “ ; Rl; " PRRR UOCE. 

ii 

1062 IF R1=B1 THEN PRINT RT 17,0 
;"E5TRM0S EMPRTRDOS EM ";Rl;”:"; 
0 X 

1070 PRINT RT 19,0;“UOCE QUER JO 
GRR OUTRR UEZ? (S/N) " 

1090 IF INKEY$="" THEN GOTO 1090 
1095 IF INKEY$="S” THEN GOTO 335 
1100 IF INKEY$=”N" THEN GOTO 110 
9 

1105 GOTO 1090 

1109 CL5 

1110 PRINT RT 10,9;“TCHRU ME-SMQ, 


1120 -STOP 

1200 SRUE "UINTE E UM" 

1210 RUN 
2010 CL-5 
2015 LET ZX=0 
2020 LET SP=0 
2030 RETURN 

Salve-o em fita. 

Ao iniciar-se, o programs mostrara as instrucoes abaixo: 

8EM UINDO RO JOGO DE 


tU TIRU a! UHT KU UHRTR3, 

DUflS PflRfi UOCE, DURS PRRR Min 
EU RiSRO UMH CRRTR MINHR , 

E RBRO RS DURS CRRTRS SURS, 

SE OUISER UMR CRRTR. ENTRE 'S 
CRSO CQNTRRRIO ENTRE “N", 
GRNHfl QUtM COMPLtTRR 21 PONTO 
ROUELE OUE COMPLETRR MRIS DE 
PONTOS, PERDEU. 

0 EMPRTE E s MEU. 

j=r«T=«aa=si!a . r> i g ite ourlouer tec 

Digite qualquer tecla e o jogo comeca. 


Lh * 


EU TENHO: 22 


1 111 i 


^ y/y»)vfi ® 

sims 




i ii i 

1 . 1 | 3 


UOCE TEH, 


C mV.v.'.v s 

^ iiumi ™ 

32ms 


13, 


2Wm2 

rsii 


n /.‘.v.v.vti 
~ /fYtVtVi T. 


I mm ( 

«. xccccc*:* * 


ESTPr 2:1 PRRR HIM. 

U O CE 0 U E R J 0 G Pi R 0 UTRh UEZT C S .• * N) 

Voce pede quantas cartas quiser. Se obtiver soma maior que 21 o 
computador ganha. Se voce parar de jogar o computador comegara a tirar 
cartas. 

E que ganhe o melhor. 

Ludo 

0 Jogo de Ludo, ou Ludo Real, tambem e bastante divertido e 
conhecido principalmente por leitores mais jovens. Geralmente ele 
pode ser jogado por ate 4 pessoas,porem , nesta versao, o leitor joga contra 
o computador. 

Ao contrario de muitos outros jogos que sao rapidos, este jogo de 
"LUDO" prende o leitor ao computador durante bastante tempo e e muito 
divertido e desafiador. 

Entre com a iistagem a seguir e salve-a depois em fita. 

10 REM JUUUS L’LR83 IL-U3 


TRfiOUZIDO E MODIFICRDO 
POR 3.C.STEIN 
RBRIL 1984- 

290 DIM fit4.) 

30O DIM 8(4-) 

310 DIM DC4.) 

320. DIM X (2,4-) 

325 DIM Y(2,4) 

0 Q T 0 4- S 0 0 
340 LET FI=0 
370 LET.X=0 
380 LET G = 1 
390 LET K = 1 
400 LET J=0 
4-H0 3LUU 








.1 


4.30 

PRINT RT 21,01 

PHKH U L? H k U 

DRDO, ENTRE 1 TECL 

R f ' 

435 

LET 00=1 


440 

PRINT RT 8/22; 

it it 

44 * 

GOSUB 7008 


450 

IF INKEY$ = "'' THEN GOTO 445 

455 

PRIhlT RT 12,22 

. «i ■ i 

j 

■ e f?- 

~r- L’ w 

LET J=J+i 


470 

PRINT RT 8 j 22; 

" SRXU 0 “;I 

450 

IF K = 1 RND I<> 

5 H jN D J < 3 THE 

N GOTO *O0 


490 

GOTO *48 


500 

PRINT RT IS i 22 

;"OUTRR UEZ” 

530 

L U T * 4 4 * 


*70 

IF 1=5 THEN GOTO 880 

* O t? 

IF K =1 RND U =3 

THEN GOTO 18 

590 

5L0U 


500 

PRINT RT 21,0.; 

1 f 0 U R L P E D R R U 

OCt * 

JRI RURNCRR? 

»« 

810 

INPUT 5$ 


515 

IF 5$ = M ** THEN 

GOTO 518 

S.L0 

GOSUB 7108 


p, c; 

If NOi OK THEN 

GOTO 518 

j—J L-J 5~; 

let n=url s$ 


5 5 0 

Ir N=8 THEN GO' 

TO 4988__ 

5 6 0 

IF H (N) =8 THEN 

GOTO 510 

870 

IF A (N) +1 > 44 THEN GOTO 510- 

580 

rOR M = 1 TO 4 


590 

■7s 

Ir R l N J +1 =R (Mi 

THEN GOTO 51 

■4.* 

700 

NEXT M 


710 

FOR U=i TO 4 


720 

IF H (U) =H (Ni Ti 

HEN GOTO 748 

730 

IF H(U)=1 THEN 

GOTO Tg0 

740 

NEXT U 


750 

GOTO 538 


"7 iZ pt 
»' LU v. 1 

FOR M=1 TO 4 


7 7.7i 
r - i. : 

Ir R (U) +1 =R i M 5 

THEN GOTO 53 

~ 780 

NEXT fi 


782 

FOR M = 1 TO 4 



IF R(H)=8 THEN 

GOTO 798 

7 3 3 

NEXT M 


s' W O 

GOTO 838 


799 

GOSUB 7828 


«-* p 

PRINT RT 21,0; 1 

'' ,J0GU* PR IMF I 

R 0 H 

PEDRfi N , ; U 


318 

SLOU 



315 FOR H= 0 TO 50 
320 NEXT N 
82 b GOTO 500 


338 

T" CT i*—] r r. 5 "i i T t A ** 

JLi n t nJ t _L <. h- «i. 

T H r ft G 0 5 U * 315 

o 48 

GOSUB 5288 


858 

LET R (N) =HC N) 

+ T 

* 

w CT CT 

H 

Ir r1=1 THlN 

GOSUB 3385 


G05UB 3305 


3b8 Ir ft lM) >40 HND ft iN ) — X<4 .1 TH 
EN GOTO 3010 

350 IF 1=5 THEM GOTO 400 

870 GOTO 1850 

890 LET K =2 

900 FOR N=1 TO 4 

910 IF ft(N)=0 THEN GOTO 940 

920 NEXT N 

930 GOTO 59£*. 

940 FOR N=1 TO 4 

950 IF ft(M)=l THEM GOTO 590 

960 NEXT H 

'570 SLOW 

980 PRINT AT 21,0;"OUE PEDRfl EN 
TRfl NO 0060? 

985 INPUT 3$ 

990 IF 3$ = ’"‘ THEN GOTO 985 

993 GOSUB 7100 

995 IF NOT OK THEN -GOTO 98b 

997 LET N=UfiL 5$ 

998 IF N < 2 THEN GOTO 985 
1000 IF ft(N)<>0 THEN GOTO 985 
1010 LET ft (N! =-5 

1020 GOSUB 3150 

1025 LET ft(N)=1 

1030 GOSUB 5100 

1035 IF FI=1 THEN GOSUB 3305 

1040 GOTO 400 

1050 LET 00=2 

10 b 0 b L u W 

1070 GOSUB 7020 

1075 PRINT AT 5,22;"HINHfi UEZ“ 
1080 LET F =0 ■ 

1085 PRINT AT 3,22;” 

1090 GOSUB 7008 

1100 PRINT AT 8.22;"SftlU 0 “;CHR 
$ ( 1 + 156 ) 

1110 LET F=F+1 

1120 lb G = 1 AND I< >5 AND F<3 THE 
N GOTO 1140 
1130 fSQTO 1190 

1140 PRINT AT 12,22;"OUTRA UEZ" 

115© GOSUB 7040 

1170 PRINT ftj 12,22;“ 

1180 GOTO 1090 
11A© GOSUB 7040 
1193 PRINT AT 5,22;" 

1195 IF 1=5 THEN GOTO 1220 
1200. IF G = 1 AND F =3 THEN GOTO 4© 
0 

1210 GOTO 138© 

122© LET G=2 

1230 FOR N = 1 TO 4 

124© IF 6<N)=0 THEN GOTO 1270 

1250 NEXT N 

12 6' 0 G OT 0 13 8 © 

127© FOR M = 1 TO 4- 


22;“SftlU 0 “;CHR 
105 AND F<3 THE 


102 




1280 

IF D’M) =21 T HEN 

' j M 7 U X w o U 

1290 

NEXT M 


1310 

PRINT PT 21,0; "Ei 

U 5P10 COM 

H RED 

Rfi N,";CHR$ cN*156) 

1 ■J» hi 0 

LET BCN)=21 


1330 

LET D(N)=21 


.1335 

605UB 3330 


1 U 4* 0 

it n S jj B t> 5 0 0 


1350 

IF FI=1 THEN SOS 

UB 3390 

1370 

G OT 0 1050 


1330 

FAST 


1385 

FOR N = 1 TO 4 


1390 

Ir DCN)=21 THtN 

GOTO 1420 

1400 

NtxT N 


1410 

GOTO 1430 


1420 

I- OR M=1 TO 4 


1430 

IF D(N3+I=D(M) T HEN GOTO 14 

qU 

1440 

NEXT H 


1442 

10 R M = 1 T 0 4 


1444 

IF 5 £M> =0 THEN G 

OTO 1450 

1445 

NEXT M 


1448 

GOTO 1430 


1450 

LET B(H)=B(N)+I 


1450 

LET D CN) =D <N)+1 


1470 

GOTO 4000 


1480 

FOR N=1 TO 4 


1490 

IF D£N)+1>60 AND 

D (N) +1 <6*5 

THEN 

GOTO It-20 


1500 

NEXT N 


1510 

GOTO 1530 


1520 

FOR M = 1 TO 4 


1530 

IF Q (N) +I=D £H) THEN GOTO it- 

1540 

NEXT M 


1550 

LET B£NJ=B£N)+I 


1550 

LET D£N)=D(N3+I 


1570. 

GOTO 420© 


1580 

t- 0 R N =1 T 0 4 


1590 

IF S£N)=0 THEN G 

; OT 0 1660 

1500 

IF DCN)>50 OR: D(N)+I>60 r htz 

N GOT0 1550 


1610 

L izT U =S ( N ) + I 


1520 

JF u >40 THEN LE i 

U=U-40 

15 3 0 

FOR M = 1 TO 4 


1540 

IF PCM) <41 PNC* PCM) =y THEN 

GOTO 

1710 


1550 

NEXT H 


1580 

NEXT N 


1700 

GOTO 1740 


1710 

LET B£N)=U 


1720 

LET D(N) =D (N) +1 


1730 

GOTO 4000 


1740 

FOR N = 1 TO 4 


1745 

LET Z=N 

GOTO 1810 

1750 

IF D(Ni>60 THEN 


1750 

FOP M = 1 TO 

i ,p,p n .*> 

l / / v: 

IF DUD >60 

1780 

IF D <Ni <0 <i 

1790 

NEXT M 

1800 

ij? uT U 1 L 

1810 

NEXT 14 

1820 

IF B (N) =0 

1325 

IF D IN) +1 > 

1830 

FOR r-1 = 1 TO 

i R 3 4 

IF D £ N) LI = 

00 


18 3 6 

NEXT M 

1 o 4 0 

LET U=BlN) 


“ iTi I - ?. 


IS50 IP M >40 THtN LET U=U-4.0 

1855 IF D (Nil =4-1 THEN GOTO 1930 

i860 FOR h = 1 TO 4 

1885 IF PCM) =0 THEN GOTO 1880 

IF;70 IF R (N) > = H ( M) + 1 AMD- BCN) <: =P 

(h)+5 THEN GOTO 1930 

1380 NEXT M 

1885 IF D<N) *1=4-1 THEN GOTO £e!0® 
18 9 0 0 R M = 1 T C 4 

1895 IF P ( M) = 0 THEN GUTU 19 ± 0 __ 
1900 tf u>=ACM)+l PND U<=PCM)45 
~HEN GOTO 5200 
1910 NtXT r-1 
I930 LET BCN)=U 
1940 LET D£N) =D (N) +1 
1950 GOTO 40.00 


2200 

FOR P=i TO 1© 

T -1 0 

i__ FT N = I NT (H N D 7T' 

DO IR 

IF N=Z THEN GOT> 

~l <”l ■“« 0 

IF 6(M) <>0 PND i 

z M L? \ 

jTG 2250 

2230 

NEXT P 

2240 

GOT Os 2330 

2250 

LET UsB (N) +1 

250- 

IF y >40 THEN LE' 
F 0 R U = 1 T D 4 

2270 

2280* 

30 

IF D CM) tI = D CO) 

9 0 

NEXT 0 

2300 

LET 5 CN) =y 

2310 

LET D(N)=D(NI. +1 

2320 

GOTO 4000 

2330 

FOR N = 1 TO 4 

2340 

IF BCN) < >0 PND 

Z N G 

OTO 2370 

2350 

NEXT N 

2350 

GOTO 2450 

2370 

F 0 R M = 1 T u 4 

2390 

IF DCN>+I=D(M) 


50 

241© NEXT M 

LET B £N) =8 £ N) + 


242© 
2430 
N) -40 


B(N5 >4© T HtN LtT BCN! =6( 



cl 4 4 U 

uizT p (N i — i/ 

IN) + 1 


x sr j*7i 
c, h- vl ; 

yuTu 4 u 8 8 



X i’Ti 

c. 4 Q v.’ 

FOR N = 1 TO 

4 


2470 

IF D (N) > =2 

X H N C) 

D IN) <61 1 

N GOT 

0 2670 



2480 

IF D (N) < >8 

the n 

LET X=X+1 

2490 

KjrV T M 



2500 

FOR N=1 TO 

4 


2510 

IF DCM =54 

THEN 

GOTO 2540 

2520 

NEXT N 



2530 

iiiiyn 2578 



2540 

IF x = 1 THE 

N GOTO 

2640 

2550 

FOR N = 1 TO 

4 


2550 

IF D ( rl) =63 

ii.-k i 

1 1 » 1 

GOTO 2590 

•p =; 7 iti 

NEX ! N 



2550 

GOTO 2678 



2590 

IF X =2 THE 

N GOTO 

2640 

2600 

FOR N=1 TO 

4 


2610 

IF DCN)=52 

THEN 

GOTO 2648 

2620 

NEXT N 



2530 

GOTO 2670 




2540 LET X=0 
2650 LET G = 1 
2555 -5 L 0 U 
2550 GOTO 1140 

p jr. cr SLfU-l 

26S0 PRINT PT 21,0;“EU NPO ROSSO 

ij y IjHR i * 

2690 LET X=8 

2700 GOSUB 7040 

2720 IF 1=6 THEN GOTO 105O 

2730 GOTO 40.0 

2760 IF 1=6 THEN GOTO 400 

2755 FOR N = 1 TO 4 

2770 IF RtN)>=l 2ND HCN) <41 THEN 
G uT U c y y 0 

2750 IF H(N) < > 0 THEN LET X=X + i 

2790 NEXT N 

2600 FOR N — 1 TO 4 

2610 IH H iN) =44 THEN GOTO 2S40 

2820 NEXT N 

2830 GOTO 2990 

2840 IF X=i THEN GOTO 2940 

2850 r OR N = 1 TO 4 

2850 IF R(N)=43 THEN GOTO 2890 

2870 NEXT N 

2850 GOTO 2990- 

2890 IF X =2 THEN GOTO 2940 

2900 FOR N = 1 TO 4 

d y 10 I H l M ) = 4 sL THtN U uT U cz. z- 4 U 

2920 NEXT N 

2930 GOTO 2990 

2940 Lti X=0 

2950 LET' K = 1 

2980 GOTO 410 

2990 LET X =0 


106 


3050 
3060 
3070 
3050 
3110 
3120 
3145 
□ U , 
3150 
3150 
3170 
T H L N 
1 o 0 
3190 

z« i7( =: 

W W 

3210 


GOTO 1050 
FOR 0=1 TO 4 

IF HI 0) <4:1 THEN GOTO 30Qi7i 
NEXT 0 
GOTO 3130 

IF 1=6 THEN GOTO 408 
GOTO 1850 

PRINT Pi 21, 0 ; "x■£ OOCE GRNH 
HUlTu dEhi-* * * 

uTiTO 5008 
FOR M = 1 TO 4 

IF D (M) < 61 PHD w(HHI=B (H) : 

GOTO 3280 

NEXT M 

RETURN 

ij !j . 7 * U E' i‘" 0 id y 

PRINT hT 21,0;“UOCE GOMEU tf 
PEDRP N . “ ; CHRs (M+i*S; ; ■* 


3220 

GOSuB 7040 




32 33 

LET FI=1 




3240 

L bT b» l M J =0 




cr 

•-> Cl •«.’ *J 

LET D£H)=8 




3260 

>“* U R H = 1 i U 4 




wC : '£J 

JF R (P ’> < > 8 THEN G0 

1 y 

‘ K *— 1 


3280 

NEXT P 




3 2 9 b 

LET HU=h 




3300 

RETURN 




3305 

LET Xi2 1 MU) =2*(MU = 

•JV 

•“*1 ni 

w n. 

HU =4 

j 

3308 

LET FI=8 




3310 

LET Y £2,HU) =16*(HU 

[ .t 

OR 

MU = 

J» j *f cd 8 * i M U = cd L* W fi U — 4 ) 




3315 

PR INT H" X C 2 , MU) Y 

: O 

; HU 

> ; CM 

i 

HU 41*5} 




3320 

RETURN 




3330 

FOR M=1 TO 4 




O • -• A 
w w H- fc* 

IF h (M) <4-1 PND ft CM 

) - 

8 < N 

) TH 

E N L? 

0TO 3370 




U 3 5 0 

NEXT M 




3360 

RbTURN 




3370 

GOSUB 7040 




J W w* 

GOSUB 7020- 




-1 J 

/ Ip. 

PRINT RT 21,0; 11 EU 

c 0 

HI 

R Pb 

D R H 

<*. t ’ * 1 r.i ■ 11 

r* « , ! 3 , 

it 



- 7 , —t 

j. v ; / 1^1 

T; O O 

LET FI=1 
i £1 HU = M 

RETURN 




w 1 U* t . 5 




3390 

LET FI =0 




3 3 R F 

LET R (HU) =0 




3400 

LET X Cl,MU) -13*(Mu 

.1 

— a 

OR 

MU = 

2) +2 
J 410 
) 

3 4 ci 0 

D * 1 H U = * U R H L* = 4) 

LET Y 11,HU) =2* 1 M U = 

CZw 

OR 

r *t Lc = 4 

PRINT PT X (i,MU5 , Y 

11 

, MU 

) ; HU 

3425 

FOR N=1 TO 4 





107 




3426 IF R(N)<>0 THEN RtTURN 

3427 NEXT N 
3430 LET K =1 
3450 RETURN 
4010 GOSUB 7070 

4030 IF D CM) <61 THEN 003UB 3330 
4040 GOSUB 5200 
4050 IF FI=1 THEN GOSUB 3390 
4060 IF 1=5 THEN GOTO 1050 
4070 t? U T U 40 0 

4200 IF D (N) -I >60 ThEH GOTO 4800 

4210 GOSUB 7070 

4225 GOSUB 5200 

4230 MjR N=1 TO 4 

4240 IF D(N) <61 THEN GOTO 4230 

4250 NEXT N 

4 b! b 0 JUT U 4 U b! 0 

4300 IF 1=6 THEN GOTO 1050 

4310 GOTO 408 

4320 PRINT AT 21,0; M ** E 

U GANHEI ** 

4330 GOTO 6080 

4500 r 0R T =1 TO 4 

4510 PRINT t hB 6;"l";TAB 12; 

4515 PRINT 
4520 NEXT T 
4530 RETURN 
4550 FAST 
4555 GOSUB 4580 

4550 PRIHT "I | | 1 | f llii 
4578 PRINT AT 2,18;"* M jAT 4,18;” 


*>* * T^T* •“ 


^ j n ! -j- j ± %-• t 


5 j 18; j AT 14 j 18; ” * ; ; A1 


s " -1 If - 

; J. > 

AT 

•1 •=■ C * 11 o 

J- '- 1 / U. J 

O iTi —' ‘ 

w ^ kw J 

"4“ 


4538^ 

PR I: 

NT AT 1 

•»X wJ! vX 

% vX% • 

\V/ 1 1 

x*x 

AV. 

4535 

PRINT 

4598 

L? U C> 

UB 4588 

4595 

SLO 

U 

4608 

LizT 

X ( 1 , 13 

4518 

LET 

X(1.2) 

«i .n 

c*. lT> c! 

LizT 

X(i f 3) 

4538 

LET 

X i I > 4) 

4648 

LET 

Y(1 j 1) 

i S 5 0 

LET 

Y(1,2) 

4668 

LET 

Yd. 3) 

4678 

LET 

Y (1,4) 

4630 

LET 

X ( 2 , 1) 

4698 

L izT 

X ( 2,2) 

4700 

LET 

X ( b! .. : J } 

4718 

Lu \ 

X (2,4) 
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4-720 LET Y (2,1) =18 

4730 LET Y (2,2) =20 

4740 LET Y (2,3) =18 

4750 LET Y *2,4) =20 

47S0 GOTO .540 

4800 POINT "BEN OINDO fiO JOGO 0 

at 2 ; 13; ''KSS3SB >a 

4610 PRINT , ./‘VOCE NAD PRECISA 
E UN TABULEIROEU DESfcNHO UN NR 
ELA, UOCE USA AS PEB.RA 

A iz S Q U E R D A E M B AIX 0 , E U U S 0 A 3 
PEDRAS PRETAS 

4315 PRJNT ' 1 0 0BJETIU0 D0 J0Gu E 
a CHEGAR COMAS 4 d cDhh5 EM SUA 
PRPRIA CASA,” 

4828 PRINT “PARA 5AIR iz* __ PRECIS'D 
MM ft t PARAISSO UOCc 4 tU TEND 
S 3 CHANCES * 

4*522 PRINT ”0 6 DA DIREITO A UNA 


NONA 

UOGADA'* 


4-625 ■ 

PRINT M SE 

i \ M h P 1 1D R A 0 0 U P A P: 

A MES 

MA CAS* ADA 

DO ADUERSARIO. E 

L H H 

COMERA-" 


X • “■ iT; 

•-+*'l.' V . 1 

PRINT “3E 

N A 0 F 0 R P 0 S 51V E L 

RizHL 

IZAR UMLAr 

i CE, A U15 E-ME ENTR 

ANDO 

COM *•“8“ "r 

v iA0 VALE ROUBAR * “ 

4-63 5 

PRINT "EU 

CONTPOLO TODAS AS 


JOG AD AS . ** 

4048 PRIN I Hi bl,0; 


, i.-' -L 


SITE OUALOUER TECLA . 

4 S 5 8 PAUSE 414 
4 c* 6 0 L‘ L 'o 
4378 GOTO 4558 
4988 FOP N = 1 TO 4- 
4918 IF A <N) =8 OR A(N) + 1 >44 THEN 
g u i o 4 y 0 
4920 G OT0 4950 
4930 NEXT N 


4948 

GOTO 2768 


4958 

FOR M =1 TO 4 


4958 

r\ 

11” H in) 4 -1 = A ( N 3 

T H iz N G 0 T 0 4 9 

w 

4978 

NEXT M 


5808 

PRINT AT 21.0; # * 

U 0 C E P 0 D fc J 0 

GAR . 
5810 

GOSUB 7848 

t ; 

5848 

GOTO 508 


w* 180 

PRINT AT X d,M) 

*W‘ 

5118 

LET X ( 1 / N} =20- 



5120 LET V(1,N)=8 

5130 PRINT hT X(1,M) ,V(1,N) ; N 

sale print^at^ xjeo, n), y too, ni:ch 

R $ !l i + 15± (L- U = 1 H N D *-'• t ; '-t ) >40 L' r-’ L 
=2 fl N D D i N) -1 > 5 0 > "> 


i n H Q r r? 




1 0 L IzT X iL — H C N ) ± ( L* U — X .> ~r >. D ( ['*4) — X ) 
* (CO =2 PND 5 i N) - I > = 1; + l D f N) -14 • 
CO =2 PND B(Nj -id) 

5230 FOR M=1 TO I 

5240 LET X tCO,N) = X TOO,N) +2*<XI> = 
21 AND XI<25 OR XI=29 OR XI=30 0 
R XI >=35 hNl> XI <39 OR XI >=20 PHD 
D (N) > =60 PND CO =2 j -2* (X1> =1 AND 
XI<5 OR XI=9 OR X1=10 OR XI>=15 
PND XI<19 OR XI>=40 PND CO=l) 

5250 LET V (CO, N ) =Y(CO, Nj +2* (X1=1 
9 OR XI=20 PND CO = 1 OR XI>=2* PN 
D X1 < ct y y R X1 > = 11 h N l- ; X1 < 1 * j — 2 ■+• \ 
XI>=31 PND XI<35 OR XI=39 OR XI= 
40 PND CO=2 OR XI>=5 PND XI<9) 

5255 LET Xl=Xl+i 

5257 IF X1> =41 PND CO=2 THEN LET 
XI=X1-40 
5250 NEXT N 

52 70 PRINT PT X i CO,N) ,V{CO,N} ;CH 
H 5 l N + cd t 1H* t ( L'U ) ) 

5230 RETURN 

*50© PkINT h x (y i n ) ^ V [ c ; N) ) 

5510 LET X (2,N> =0 
5520 LET Y (2,N) =12 

5530 PRINT PT X (2,N) ,Y (2,M) j CHR$ 
(N-i-155) 

3*40 hlE i UkN 
5000 PAUSE 4E4 
5200 CLS 
5300 RUN 

7000 LET I = INT (AND *6 i + 1 

7010 RETURN 

7020 PRINT PT 21/0;" 


7030 

RETURN 



7040 

FOR T =0 

TO 30 


7050 

NEXT T 



7050 

RETURN 



7070 

SLOU 



7050 

PR1\^\T PT 

c 1 j 0 

i ‘ 1 E U P U P N C 0 h 

PEOR 

P H . **; CHR $ i N 4- 

15 6 > 

7090 

kET UkN 



7100 

LET OK =0 



7110 

FOR 0=1 

TO LE 

N S $ 

7120 

tt 

IF S$iO> 

^ * ? 7 i 

THEN l_ET S$ = , '0 

7130 

IF 5$<J) 

> ' ' 4 '* 

THEN RETURN 

7140 

NEXT J 



7145 

IF UPL 5 

$ >4 T 

HEN RETURN 

7150 

i zr-r w _ -i 

i_» 1 _ 1 * s. — J. 



7 j 50 

=*T • iCw-i 
r\ u. i K * m 



5000 

SPUE *'LUD0 M 


3010 

RUN 
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Ao iniciar, o computador mostrara as seguintes instrupQes: 


;; t: M j x N D 0 H 0 J 0 G 0 D E 


./ n c 
c U 
UOC 

BP I 
0 0 
H* 
fPk 
155 
0 5 
5E 
DP 
5E 
LPN 
NPO 
EU • 


E_NPO 
D iz 51N 
t U 5 P 
XO , 

5 JET I 1 
4 PED 
P SPIi 

0 U 0 c 

DP D 
UMP Pi 
DO PD ! 
NPO Fi 
CE, P 1 
UPLE 
CONTRi 


* R ti y I * H D t u M T h B U l_ * IH L 
« UN NP TELP. 

15 PEDRPS P ESOUEPDA FM 
i USD PS PEDRPS PRETPS, 
i DO JOGO E 1 CHEGPR CON 
IS EM SUP PRPRIP CPSP , 

* * P KE L* 1 3 U U i "1 * ,» P H h! H 
E EU TENOS 3 CHANCESV 
:EIT0 P UMP NOUP JOGAOA 
'RP-OCUPPR P MESMP CPSP 
:RSARI0 , ELP P COMERP , 

: POSSIUEL REPLIZPR UM 
!SE-ME ENTRPNDO COM 
:0UBAR. 

U T U D H * H * J 0 L? H D H * a 


^SBHSBSSll-y01’G ITE GUPLQUER TECLA. 

Ao digitar qualquer tecla voce vera o tabuleiro de jogo. Conforme as 
instrupoes ja deixaram claro, voce joga com as pedras que estao embaixo 
a esquerda da tela. 0 seu adversario, que e o computador, usara as pedras 
pretas a direita, na parte superior do Video. 


W: M 


I § 
§ 2 


v": «£ v&: 


4 ** *A« 


;i; m n 

v.v* 


RfiRRi jOGRR 0 DhDO . ENT HE 1 TtCLR- 
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Os jogadores se alternam no jogo. Para sair voce precisa de um 6 . 
Para tanto voce e o computador tern tres chances. Apos sair com 060 jogo 
da direito a nova jogada e o jogador, se possivel, deve desocupar a casa 
onde a pedra recem-saida se encontra. Cada vez que uma pedra ocupar a 
casa onde esta uma pedra adversaria, esta estara sendo "comida", e de- 
vera voltaf para a origem. 

Ganha quern chegar primeiro com as quatro pedras no abrigo final. 
0 computador controla o jogo e so permite jogadas licitas ao leitor. 
Boa Sorte! 


2 Caracteres graficos da tecla "7" 
1 Caractere grafico da tecla "4" 

1 Espapo 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da tecla "5" 

2 Espacos 

1 Caractere grafico da tecla "E" 


Capa Niqueis 

Embora existam outros programas para o seu TK, este Capa 
Niqueis tern uma apresentapao grafica e uma serie de oppSes rriuito atraen- 
tes. Vale a pena digita-lo no seu computador e impressionar os amigos. 

Entre com 0 programa, armazene-o em fita entrando "GOTO 9500". 
A seguir, mostramos algumas instrupoes para auxiliar o leitor a entrar com 
as linhas de figuras da listagem: 

Linha 170:32 Caracteres graficos da tecla "A" 

Linha 175:32 Caracteres graficos da tecla "SPACE" 

Linha 340: 7 Caracteres graficos da tecla "7" 

1 Caractere grafico da tecla "R" 

7 Caracteres graficos da tecla "7" 

1 Caractere grafico da tecla "R" 

7 Caracteres graficos da tecla "7" 

1 Caractere grafico da tecla "R" 

8 Caracteres graficos da tecla "7" 

Linha 360:32 Caracteres graficos da tecla "7" 

Linhas 4100-4200-4300:16 Caracteres graficos da tecla "T" 

Linha 8100:2 espapos 

1 Caractere grafico da tecla " 8 " 

3 Espacos 
1 Espapo 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da teda "1" 

1 Caractere grafico da tecla "y" 

2 Espapos 

1 Caractere grafico da tecla " 8 " 

1 Caractere grafico da tecla "5" 

2 Espapos 

1 Caractere grafico da tecla "SPACE" 

1 Espapo 

Linha 8200: 1 Espaco 

1 Caractere grafico da tecla "T" 


1 Espapo 

1 Caractere grafico da tecla "Y" 

2 Caracteres graficos da tecla " 6 " 

1 Caractere grafico da tecla " 1 " 

Linha 8300:1 Espapo 

1 Caractere grafico da tecla "T" 

2 Caracteres graficos da tecla "G" 

1 Caractere grafico da tecla "4" 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da tecla "5" 

2 Caracteres graficos da tecla "A" 

1 Caractere grafico da tecla "E" 

1 Espapo 

1 Caractere grafico da tecla "Y" 

2 Caracteres graficos da tecla "F" 

1 Caractere grafico da tecla " 1 " 

Linha 8400:1 Espapo 

1 Caractere grafico da tecla "Q" 

1 Caractere grafico da tecla "7" 

1 Caractere grafico da tecla "SPACE" 
1 Caractere grafico da tecla "4" 

1 Espapo 

1 Espapo 

1 Caractere grafico da tecla "5" 

1 Caractere grafico da tecla "A" 

1 Caractere grafico da tecla " 8 " 

1 Caractere grafico da tecla "SPACE" 

1 Espapo 

1 Caractere grafico da tecla "R" 

1 Caractere grafico da tecla " 6 " 



1 Caractere grafico da tecla "SPACE' 
1 Espapo 

Linha 8500:1 Espapo 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da tecla "7" 

1 Caractere grafico da tecla "Y" 

2 Espapos 

1 Espapo 

1 Caractere grafico da tecla "8" 

1 Caractere grafico da tecla "6" 

1 Caractere grafico da tecla "Q" 

2 Espapos 

1 Espaco 

1 Caractere grafico da tecla "W" 

2 Caracteres graficos da tecla "6" 

1 Caractere grafico da tecla "5" 

1 Espapo 

2 Espapos 

1 Caractere grafico da tecla "2" 

3 Espapos 

Linha 8600:1 Caractere grafico da tecla "3" 
1 Caractere grafico da tecla "7" 

1 Caractere grafico da tecla "Y" 

1 Caractere grafico da tecla "6" 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da tecla "1" 


1 Caractere grafico da tecla "7" 

1 Caractere grafico da tecla "Q" 

2 Caracteres graficos da tecla "SPACE 
1 Caractere grafico da tecla "W" 

1 Espapo 

1 Espapo 

1 Caractere grafico da tecla "2" 

2 Caracteres graficos da tecla "SPACE' 
1 Caractere grafico da tecla "1" 

Linha 8800:1 Espaco 

1 Caractere grafico da tecla "6" 

1 Caractere grafico da tecla "8" 

1 Caractere grafico da tecla "3" 

1 Caractere grafico da tecla "4" 

1 Espapo 

1 Caractere grafico da tecla "8" 

4 Caracteres graficos da tecla "SPACE' 
1 Espapo 

1 Caractere grafico da tecla "2" 

1 Caractere grafico da tecla "SPACE" 

1 Caractere grafico da tecla "E" 

1 Caractere grafico da tecla "SPACE" 

1 Caractere grafico da tecla "E" 

1 Espapo 

Linha 8900: 6 Caracteres graficos da tecla "A" 


1 Caractere grafico da tecla "5" 

3 Espapos 

1 Caractere grafico da tecla "5" 

1 Espapo 

1 Caractere grafico da tecla "2" 

1 Caractere grafico da tecla "6" 

1 Caractere grafico da tecla "T" 

1 Caractere grafico da tecla "7" 

2 Espapos 

Linha 8700:2 Espapos 

2 Caracteres graficos da tecla "6" 
2 Espapos 


1 Caractere grafico da tecla "A" 

4 Caracteres da tecla 
1 Caractere grafico da tecla "A" 

6 Caracteres graficos da tecla "A" 


W 1 


M . i0GnCLH■”= If:ft 

TRhDUZIDO £ hDhPTRDO 
PGR B.C.STEIN 
JUN 1984 

I © p R X N T " 8 £ M UIN D 0 H O <J G G 0 D £ 
"; hT 2,10; 11 ’' 

15 PRINT , j "ENTRE COM SEU CAPI 
TRL TOTAL, ENTRE COM 0 UPLOR 
PH HPU oT H * 
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20 PRINT ,,"fl TECLR ""0"" REIN 
ICIA A UOGADR ." , , i "UQCfc RODE PET 
EP 1,2,GU 3 BflRRRS,ESCOLHR PfcLO 
NUMERO." . 

25 PRINT , /'flO GRNHRR, UOCt PO 
DE TENTHR MULTIPLICPR 0 UALO 

R DO PREMIO. SE NflO OUISER ENTR 

ti u j-. ii it : > 

30"PRINT ,,"SE OUISER MUDRR fl 
RPOSTR, ENTRE ""E"", E 0 N 

nun ufiLOR." 

35 PRINT RT 21, O, 

GITE■OUfiLOUER TECLR." 

37 PAUSE 4-E4- 

, *i. L o 

4-0 PRINT TAB 8; "TRBELR DE PONT 
OS".. . . 

50 PRINT Tfit; 5; *’ CfiPOSTR X N. D 
t PONTOS) " , i > 

51 PRINT TRB 12,"B g S 

JS" 

b2 PkInT “ L-SzRE*JHo , • h*« « . 4-» . * 

10 .... .20” 

-J j~‘K XNT LHRflNJH'j * • * i f > « t i 

-1 " 

* W- . * ■ « * XL 

54 PRINT “ LIMOES........... 


1 0 ** 


B ............... . 


55 PRINT " PMEIXP5,......... 

10.....20" 

55 PRINT ” SINGS............ 

10. . . . .20” _ ^_ 

\T‘ r* HKiN I 1 HdUbUKHo • . . * . . » . . 

•1 jTH '7i * * 

J.W *»»»•*—. W 

58 PRINT M PERPS............ 

10.....20” 

59 PRINT ” MRGAS............ 

10.....20” 

50 PRINT M .4+1 

00..8+200” 

61 PRINT ” B............... . 

20....108” 

52 PRINT 11 BB . ............. . 

20 ... .200 w 

63 PRINT M BBS .............. 

40..,.800” 

54 PRINT PT IS , 1; ” ” "4X5B5” ” DP 
U M £3 U N U ‘o L*‘E $ 1 ki 0 

55 PRINT PT 21,4;“ENTRE COM GU 
PLGUER TECLP^” 

55 PAUSE 4£.4 
57 CLS 

70 Pk I NT hT G i o > " t tUHL-H NI U iz I 
+ M 

75 PRINT RT 4-, 2; "ENTRE COM SEU 
CRPITRL INIGIRL" 

80 SLOU 
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85 ’INPUT K 
ICO LET LU =0 
102 CLS 

105 PRINT RT 3,5;"0URL 0 
DR RPOSTR'?' 1 , j “ (MAX. $10) 
120 INPUT E 

125 IF E >10 THEN GOTO 10 

130 CLS 

1 f*jH t-iiT U — 0 

14.0 LET NO =0 

145 LET LG =0 

150 LET F=0 

1.55 LET K=0 

160 LET G =0 

165 LET P$ = ".;*. 


UfiLOP 


i 

i 

i 

i 


175 LET M$ = " 


180 LET 0$=" 

i 

185 LET R$ = "I 

i r 

190 LET 0$=” 


200 L.ET M =0 
205 DIM H(33 
210 DIM Pi 12) 

240 FAST 

241 FOP 1=1 TO 12 

242 IF K<=0 THEN PRINT RT 2,7; 
R C R B 0 U w* in U L* H P IT H L » 

' 243 IF K < =0 THEN LET LU=0 


244 

IF K 

.-:;=0 THEN GOTO 70 

249 

LET 

V = INT (RND + 1300) +1 


LET 

Z = 1 

■3 cr 3 

].* W Am* 

IF V 

>30 THEN LET Z=2 

*t cr 

■— .i . < 

IF Y 

>330 THEN LET Z=3 

254 

IF Y 

>i?30 ! HcN LtiT Z =4 

255 

IF Y 

•>730 THEN LET Z=5 

255 

IF Y 

>880 THEN LET Z=6 


IF Y 

•>1030 ThEH LET Z=7 

258 

t cr \ j 
1 ! ! 

•>1130 THEN LET Z=8 

259 

IF Y 

>1330 THEN LET Z=9 

250 

IF Y 

•>1430 THEN LET Z=10 

251 

IF Y 

■>1580 THEN LET Z-ll 


IF Y 

*>1730 THEN LET Z=12 


300 LET P(I)=Z 

305 IF Pill) >8 THtN LitT PlliJ =1 
NT £RND*8)+1 
310 NEXT I 
315 LET G =0 


347 FOR 1=1 TO 16 








343 PRINT RT I , 0 ; 0 * 

349 NEXT I 

355 PRINT PT S,0;M* ;RT 11,0;M& 

350 PRINT RT 17,8; .. 


362 FOR 1=5 TO 10 
354 PRINT RT 1,0;R$ 

366 NEXT I 
370 FOR 1=1 TO 12 
375 GOSUB 3000-10*1 
335 NEXT I 
425 LET K=K-E 

430 PRINT RT IS"flPQSTfl:";E;A 
T 13,21;"SOLDO:"; K; 

440 5L0U 
4 y 0 t? ij T u 0 0 0 

500 Il~ H* i H J = I NT i H l * ,i + P K o j + p ill 


GOTO 2200 


N GOTO 2200 
530 IF P (2) 
OTO 2400 
540 ,lr PCS) 
GOTO 2400 
550 IF PC2) 
GOTO 2400 
&S0 Ir PC2) 
=1 OR PC11)= 
553 LET M=0 


2000 Ir PC2 
2010 Ir PC2 
2020 IF PC2 
2 0 4 0 I r r * 12 


=P(S3 AND P 

r>. >s 

( 3 

"i ««ri i" ** *; 

| | £* J 

w w 

INT (PCS 

3 +P 

( 3 

J J / £1 rr- 

AND P (3 3 

=P ( 

•J \ 

THEN 

INT (PCS 

3 +P 

t -1 

l L- 

1 .* 3 / 2 

AND P (5 

3 =P 

(1 

1) THE 

1 AND P C 

5 3 = 

1 

THEN G 

I AND P i 

■i *r -j 

= 1 

THEN 

1 AND P ( 

113 

= 1 

THEN 

1 OR P (5 

3 =1 

0 

R P ( 8 ) 

THEN GOTO 

SL H- 


HizN GOTO 

2 

00 


12 THEN 

: ““T” 

L_ 1 

M 

_ :7l t-?i 

— •_* 


=11 THtN LrT M=200 
i =10 THEN LET M = 100 
= 3 OR P (2) =7 OR P (2) 


=5 OR P (2-3=5 OR P (23 =4 THEN LET 
M = 20 

20*0 Ir P C2) =3 OR P (23 =2 THEN LE 
T M = 10 

2050 IF P (2 3 =1 THEN LET M=20 
2070 GOTO 2700 

2200 IF P(53=12 THEN LET M=40 
2210 Ir P (*3 =11 OR P C*3 =10 THEN 
LET M =20 

2230 Ir P (53 =3 OR P (53 =7 OR P ( 5.3 
-F. OR P 1 5 1 =5 OR P (5 ’t =4 HP P *Fi ) =1 
THEN LET N=10 

2240 IF P (53 =3 OR P(53 =2 THEN LE 
T M =4 

2250 GOTO 2700 
2400 LET M=4 
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2405 GOTO 2700 
2410 LET H =2 
2420 GOTO 2700 

2700 IF G <=M*E THEN lET G=M*E 

2710 PRINT RT 2©.0;G$; 

2711 PRINT RT 2i.0;G*j 

2712 PRINT RT 19,0;" 

>> « 

2713 PRINT RT 19,9;"3";AT 19,12; 

jq i s • "gj" • 

2715 PRINT AT 20', 13; "g332EgS"> 6 ; 


2715 PRINT AT 20,13.; 

2716 FOR 1=0 TO 31 STEP 2 

2717 PRINT AT 21,1;"$ ", 

2 71 ; = » N ext I 

2720 IF G <1600 THEN PRINT RT 21, 
0;" RRRISCR 2X,3X OU 4X? 

* i 

2722 IF G > =1600 THEN LET K=K+G 
2725 IF G>=1500 THEN GOTO 3600 
2730 IF INKEY*<>"" THEN GOTO 273 
0 

2740 IF INKEY*="" THEN GOTO 2T40 
2745 LET I*=INKEY* 

2747 IF I$ = 1 * 0 1 ' THEN LET LU=© 

2750 IF 1$ = “2“ THEN GOTO 2900 

2751 IF I*="3" THEN GOTO 2902 

2752 IF 1$ = "4“ THEN GOTO 2904 

2753 PRINT RT 21,0;0*;RT 19,©JO* 

2754 FOR 1=0 TO 6 STEP E 

2755 PRINT RT 13,27;K+I; 

2756 NEXT I - 

2757 PRINT RT 20,0;0$; 

2753 IF INKEY $ < >"" THEN GOTO 275 


d * y 
2750 
4 


IF INKEY*= MM THEN GOTO 2759 
IF INKEY*="0" THEN GOTO 276 


£1 »*" t* 4 

LET 

K=K+G 



2765 

LET 

F =0 



2770 

goto 

£1*40 



2900 

LET 

y = £» 



2901 

ROTO 

~ 2905 



2902 

LET 

y =3 



2903 

GOTO 

2905 



d y 0 4 

LET 

U=4 



2 3 0 F 
"S3" ; 

IF U 

=2 THE 

N PRINT RT 

21,13 

2906 

if u 

=3 THE 

N PRINT RT 

21,15 

“itS3" ; 





2907 

IF U 

111 

r 

ii 

N PRINT RT 

d 1 j 22 

‘Wi 

2908 

LET 

MG =36 



2909 

I r is 

*v>100 

THEN LET f 

*11? = M t? * 

* 

2910 

IF G 

*U> 400 

THEN LET t 

•ig=mg* 




2911 IP LU=i THEN LET MG=18 

2912 LfcT HH = INT (RNDfcMG) 

2913 11“ HH > 31 THtN LET HH = 19 +RND 
*10 


2914 

G 0 S 

UB 

5*00 


2915 

IF 

U=2 

PND 

PP <a18 THEN LET 

GsG*U 

2917 

IF 

ii 

ro 

PND 

PP >18 THEN GOTO 

220 b 

2220 

IF 

U=3 

PND 

PP <=12 THEN LET 

G=G*U 

2222 

IF 

U=3 

AND 

PP >12 THEN GOTO 

225b 

2925 

_ v. j 1 

IF 

ii 

PND 

PP <=9 THEN LET G 

M Hr y 

2927 

IF 

U=4 

PND 

PP>9 THEN GOTO 2 
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3115 GOSUB 5000 
3120 GOTO 50O 

3500 IF F =0 THEN PRINT ftT 20,4; 
PRRPk BRRRHb y" ; hT 20 , 23, ,» 


3 50 3 
3505 


K < =0 THbN CLS 
K < =0 THEN GOTO 242 


3510 IF F=1 THEN GOTO 3600 


3515 

5 


INKEY$<> M " THEN GOTO 351 


w* w* u. D 
cr -r- 

.i. i » 

IF 

LbT 

INKEY4=”" THEN GOTO 3 
1 5 =INKEY $ 

3519 

IF 

I*=“0* # THEN 

LET Fs0 

3520 

IF 

I$ = **0‘* THEN 

GOTO 240 

•-.» *_« c. JL 

IF 

I$s M K'* THEN 

LET LU = 1 

cr *31 

W w 

IF 

I$ = J ‘K»< THEN 

GOTO 3b15 

3 523 

IF 

I$= M G“ THEN 

GOTO 3500 


If 

1$ = ”£’* THEN 

GOTO 5000 

*•»’ ■— 1 iC. i 

LET 

H(1)=UhL ( 

1$) 

j-. 

w 1 w 1 ' 

PRINT PT 20,23 

; H (1) ; 

3530 

IF 

INKEY* <>" ,# 

THEN GOTO 


0 

cr -i 
u 1 ■_ 1 —’ «L 


IF INKEY$ a"" THEN GOTO 3 *31 


u l w w* w 

LET 

14 = INKEY4 



3535 

IF 

I4 = ”-0" THEN 

GOTO 

4- b 0 0 

3536 

IF 

I4 = ,, C‘' THEN 

G UT U 

3500 

~ ,n -n 
W 1 •— 1 ■— 1 i 

IF 

I4 = ‘'E" THEN 

GOTO 

5000 


3538 LET HC2)=UPL EI $) 

3539 PRINT AT 20,24;HE2 ) 

3540 IF INKEY $ <>"" THEN GOTO 3*4 
0 

3541 IF INKEY 4 ="" THEN GOTO 3541 

3542 LET I$=INKEY$ 

:':545 IF 1$ = ”0" THEN GOTO 4200 

5 =: 4 »=. if i$r"c- then goto 3500 

3547 IF I4="E" THEN GOTO 5000 
ft H ( 3 > = ! v ] HL ( I $ ) 

3549 PRINT PT 20,25; H (3); 

S50 IF INKEY $<>“'* THEN GOT0 355 

0 

3551 IF INKEY$=** ** THEN GOTO 3**1 
3F52 LET I4=INKEY$ 

3FF0 IF I4="0" THEN GOTO 4100 
3600 PRINT PT 20,0;" 


3546 

cr a 


3502 IF INKEY*<> 


THEN GOTO 350 


3605 

3606 

3607 

3610 

3611 
3i = , 12 
3615 

* M 
J — 1 ^ 

■ j b x .•* 
3520 


IF INKEY$="" THtN GOTO 3605 
LET 1$ = INKEY$ 

IF I$="0" THEN LET p=0 
IF 14="0" THEN GOTO 240 
IF I4="C" THEN GOTO 3500 
IF I4 = "E , ‘ THEN GOTO 5000 
IF 1$<>"0" THEN PRINT PT 20 
NPO UPLE PPRPR ."j 
LET- F=0 
for 1=1 TO 50 




3625 

NEXT I 


3 t» 3’ 0 

GUTU 2 40 


4100 

«v,v 

PRINT PIT £0,4; 

.'.mm* 

4102 

LET MU=12 


4105 

Ir H(l)=l AMD 

H(2) =2 2ND H i 

3 } = *3 

THEN LET J = 10 


4107 

IF U — 10 AND PC 

5) >9 THEN LET 

MU =9 
4110 

IF H(1)=1 AND 

H ( 2 j = 2 A N L> H ( 


,jt i = 4 

THEN 

LE 

:t 

i ^ "7 

W — 1 




4112 

IF J = 

« *7 
* f 

hN 

D P £ 

5 3 

> 9 

THEN LET 

Ml l sQ 




. 




4120 

IF Hi! 

:d 

= 1 

AND 

H 

(2 3 

=3 AND H( 

3) =4 

THEN 

LE 

; j 

.Jr 4 




41 P 

IF J = 

^ 4 

PN 

D P ( 

83 

>9 

THEN LET 

MU =9 







4130 

IF H < 

:i> 

—. ‘3 1 
***• 

AND 

H 

C 2 3 

=3 AND H ( 

w i J =4 

THEN 

LET 

J = 1 




4 13=! 

IF -J = 

: 1 

PN 

D P ( 

8 3 

> Q 

THEN LET 

MU =9 








4150 

FOR I 

>0 

i T 

0 2 




4151 

LET P 

* cj 

l + I 

) =IN 

T 

l R N C* + fi U .14-1 

4152 

Ip P C 

«j + 

I) 

>8 THE 

N LET R rINT 

CRND-S10) +1 







4153 

IF p ( 

J + 

I) 

>8 AND 

R< 

5 THtN LE 

T P ( l 

J+I)= INT 

( 

p ( j+ 

13 

/ i c 

AND*43 +13 

+ 0i&) 







4154 

NtXT 

I 






4155 

LET F 

= 1 






4160 

IF J = 

10 

THEN 

GO 

51 . IF; 

4515 

4161 

IF J = 

’ i* 

TH 

in N G 

OS 

UB 

4510 

4162 

IF J = 

, .-j 

M- 

TH 

liN 3 

OS 

UB 

4505 

413 3 

IF J = 

1 

TH. 

EH G 

OS 

UB 

4500 

4165 

tji !J j 

a cr 

36 




4200 

« *:ft **i 

s w * * 

PRINT 

AT ; 

20,4 

« i 1 

} J 

I l *v 

.V.VAV.V 

4201 

L ET M 


12 





4202 

IF H ( 

i) 

= 1 

AND 

H 

i 2 3 

r2 THEN G 

□TO 4 

•_> cr }7| 







4205 

IF H ( 

i) 

= 1 

AND 

H 

f2 3 

=3 THEN 6 

QTG 4 

255 







4210 

IF H £ 

1) 

— 

— J. 

AND 

H 

(23 

=4 THEN G 

0T0 4 

■260 







4215 

IF H C 

1) 

=2 

AND 

H 

i O ’i 

% w .* 

=3 THEN G 

QTQ 4 

2 55 







4220 . 

IF Hi’ 

1.) 

= i=‘ 

AND 

H 

(2 3 

=4 THEN G 

0T0 4 

270 







4225 

IF H ( 

15 

= /j! 

AND 

H 

(2 3 

=4 THEN G 

□TO 4 

0 7C 

1 W 







4250 

L ET J 

— 7 






4251 

LET 0 

=ii 

-«i 





4252 

IF P (: 

53 

> 9 

THE? 

LtiT 

MU =9 . 

4253 

Ijli IT i i 1 

.i •: 

30 





4255 

LET J 

=4 






*“i cr cz 
*+• a O 

LET g 

= ii 

Zi 






4257 

Ir* f -1 ( 3 ) ) y 

then 

LET MU=9 

4 L J o 

GOTO 4280 



4250 

LET J =4 



4-251 

L izT U r / 



4252 

IF P ( 2 3 >9 

THEN 

LET MU=9 

4253 

3 ijT U 4 £1 C* 0 



4255 

LET J=1 



4255 

LET Or10 



4-267 

IF P (5), >9 

THEN 

LET MU=9 

*4 C 

M 

GOTO 4280 



4-270 

LET d=l 



4271 

LtT 0=7 



4272 

Ir P(53 >9 

THEN 

LET MU=9 

.H 1 t 7 '** 

GOTO 4280 



4275 

LET J=1 



4276 

LlT Q =4 



4277 

Ir P (8 ) >9 

THEN 

LET MU=9 

4-275 

Ir U I U 4 c. C 1 0 



4280 

FOR 1=0 TO 

2 


4281 

L lT k1 J +1 J 

= INT 

C RNDsMU3 +1 

4282 

NEXT 1 



4-253 

rOR 1=0 TC 

-“t 


4234 

l j*~ T j— 1 i y ? X 

= INT 

(RND + 123 +1 

4285 

NEXT I 



4286 

LET F = 1 



4290 

IF J = i OR. 

i J = J- THE ?"'■! 3 U 3 U 3 4 3* 

00 

A »"*i t” • j 

4»= 3 ± 

05 

IF J=4 OR 

0=4 T 

H E ?**-! GO SUB 43 

4222 

IF J =7 OR 

0=7 THEN 60SUB 45 

10 

4293 

IP j = 10 .OP 

0=10 

THEN GOSUB 

a cr -I cr 

■*+* %_< «L 

4299 

Ni m "1"" u 4 5 3 b 



4300 

ft u *»' 
X M ft 

PRINT AT £ 

0,4; M 

«V.W.ViWiV 

4302 

IF H C13 = 1 

THEN 

GOTO 4330 

4305 

IF H (13 =2 

THEN 

GOTO 4340 

.4 •“ *1 iTi 

M- J. 

IF H (13 =3 

THEN 

GOTO 4350 

4315 

IF H 113 =4 

i HEN 

GOTO 4360 

4330 

LET ,1=4 



4331 

LET 9=7 



^ •"I- •^ P i 

£L. 

LET L = 10 



S- w ■_* 

GOTO 4370 



4*340 

LET J=i 



A •”* -4 *1 

H- •_> M* 1 

LtT 0=7 



■i “• .4 *~t 

H- H* j= 

LlT L r10 



.i •“* A 

H* ; H- •_« 

ROTO 4370 



4350 

LET J=1 



4351 

L lT U = 4 



4352 

LET L = 10 



4 3 v? *3 

3 U j U 4 o 1 «*' 



4360 

LET J=i 



A •7’ C 

i_i x 

LET 9=4 



43 52 

LET L =7 



4 3 O 3 

GOTO 4370 







4 w* 70 

FOR R =8 TO 

CT 1 

•1 “? i 

H” W* 1 ab 

L dT P { »J + R j 

= INT (RND +9} +1 

•1 ~7 O 

4’ U 1 1* b. 

NEXT R 


4 1—* 0 

FOR 8=8 TO 

2 

4 U 

LET P (0+8) 

= XNT CRND+123 +1 

4385 

NEXT d 


4 u y 0 

FOR 0=0 TO 


4391 

LET PiL+C) 

=INT CRND+123+1 

43y2 

NEXT C 


4 o y o 

IF U = 1 OR 

0 = 1 OR L = 1 THEN G 

05 UB 

4588 


4394 

J p j = 4 0 R 

0=4 OR L =4 THEN G 

OSUB 

4585 


4395 

X I - * J = 7 u R 

0=7 OR L =7 THEN G 

0505 

4518 


4396 

XF J = 18 OR 

0 = 18 OR L =18 THE 

N GO5 

UB 4515 


4 3 y o 

LET F = 1 


4399 

GOTO 4539 


4580 

FOR 1=1 TO 


4581 

ROSUB 8808 

~ JL U •«: JL 

4582 

NEXT I 


4583 

RETURN 


4585 

FOR 1=4 TO 

5 

4585 

GOSUB 8808 

-18 +1 

4587 

NEXT I 


4588 

RETURN 


4518 

rOR 1=7 TO 

9 

4511 

GOSUB 8888 

— 10 + 1 


4-512 NEXT I 


4 w 1 • 

RETURN 


4515 

FOR 1=18 TO 12 


4515 

u*ft 5 i IB 8808-10 + 1 


4517 

NEXT X 


4518 

RETURN 


4 5 ■-> d 

LdT K=K-E 


4541 

PRINT RT 18,27;K; 

»* i» , 

j 

4558 

LET F = 1 


4560 

RHTn 498 


5088 

INPUT N 


5882 

LET Y =8 


5885 

IF N >18 THEN GOTO 

5808 

5087 

IF N > E THEN LET F 

= 1 

5818 

IF N <E THEN LET F 

=8 

5815 

IF NO =1 THEN LET 

F = 1 

5817 

LET NO =8 

- 

5028 

LET E=N 


5830 

PRINT PT 18 , 8 ;E;“ 

41 , 

A 

5832 

RHTO 3580 


5835 

11 

XF Y = 1 THEN PRINT 
*• » 

PT 2 

5837 

IF Y=1 THEN*LET F 

=8 

5838 

IF Y =8 THEN LET F 

= 1 

5848 

GOTO 3588 


5845 

LET Y =8 




5850 

IF INKEY $< > 

“** THEN G 

OTO b8d 

w 

5080 

IF INKEY $='’ 

*’ THEN GO 

TO 5068 

5878 

IF IN KEY $ = J ' 

8 *' THEN G 

OTO 248 

5830 

GOTO 248 

Q - • UT 

> i w , n : 


5588 

PRINT PT 19 

19,12/ 

: 11C7» 11 . 

.= 

PT 19 , 18; 

* 


5583 

IF LU=1 PND 

PP < 12 THEN LET 

HH -HH t-j 



5585 

Id LU =8 PND 

G + U > 9 9 9 

THEN LE 

T HP 

=31-XNT i RNf 

+ 18 3 


— cr •] i*7i 

r 0 R X = 8 T 0 

31-HP 


5528 

PRINT PT 19 

,3i-i; "<" 

/ 

5538 

NEXT' I 



5548 

RETURN 




5000 PRINT FIT 19,2; "S"; AT IS,5;" 


PT 

19 

, o ; ; 

PT 19,11; 

4; M 

XZ2 11 

ml 

: AT 19, 

‘I “7 • “!=**' • PT 

PT 

19 

,23; "H" 

; PT 19/26 

wU • 
a— I? j 





LET U=3*U 
5020 FOR 1=0 TO 33-U 
5030 PRINT PT 19,31-1; ; 

504-0 NEXT I 
5042 r-QR T = 1 TO 7 
504-4- Nil XT I 
6050 RETURN 
7880 LET P = 13 
LET 5=25 

U U C‘ U d» d 0 0 0 + -L 0 0 + H l X .* 
7884 RETURN 
7890 LET P=7 
7892 LET 8=25 
7 d y u u o U 8 d» 0 0 O + X u 0 + h i I j 
7894 RETURN 


s* O «„» SL 

O O ■O 


7988 

LdT H — 1 

7982 

LET B =2 

7983 

GOSUB 8 

7y 0 4 

RETURN 

7918 

LdT P = 1 

7912 

LET 6=1 

,*■ y 1 

GOSUB 8 

7914 

RETURN 

7928 

LdT P=7 

y 1 *— * 

LET B = 1 

7 y 2 • J 

GOSUB 8 

7924 

RETURN 

“7 1*3 j“7i 

,• zf w t 

LET P=i 

7932 

LET B = 1 

79 33 

GOSUB 8 


7934 RETURN 
7y40 LET H = Xu 

7942 LET 8=9 

7943 G0SU8 8888+188+P(I) 

7944 RETURN 
7950 LET R = 7 
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7952 LET 5=9 

7953 GO-5US 3000 4100 ±p \ I) 

7954 RETURN 
7960 LET . R = 1 

7962 LET 6=9 

7963 GOSUB 8888 + :L©8*P <I) 

7964 RETURN 
7970 LtT H = 13 

7972 LET 5=1 

7973 GOSU6 3000 +10©*PfI) 

7974 RETURN 
7980 LET R =7 

7982 LET 5=1 

7983 G0SU5 B800+100*P(15 

7984 RETURN 
7990 LET H = 1 

7992 LET 6=1 

7993 G0SU5- 3808+100+P (I) 

7994 RETURN 

8100 PRINT RT R,B;” 1 *'; RT R + 

1.5; 11 .**, ,r ; RT fl+2,B;”l S fl 

T fl+3 Bj P$ 

8110 RETURN 

8200 PRINT RT R,B;“ *“** M i RT H4 
1,B; M J I s ”;RT fl+2 .. 5; " M jR 

T fl+3, S; P$ 

3210 RETURN 

3300 PRINT RT R,B;" *'; RT H4 

i,B;"JWr M ;RT fl +2 B; UHF “; R 

T 943,8; P$ 

c* 10 R izT u R N N 

8400 PRINT RT R,B.; M ' J"% "; RT fl4 

l , B; " i HJK M .< RT h 4-2 ,ts; “ TU5F SJ ; R 
T Ht : J; t'; F$ 

3410 RETURN 

i'!l | 00 PRINT Hi H j ij; " I* 68 * * j H \ Hi* 

j_ J t 1 ; gjjfeng J H I H "t i=I j t Tw.'.ia ' f-- 


-j- J l—’ / «SHC9 

~r rj ; =• • • • 

I r - ! -{■ -_ l ; L 1 ; 


S 

a / r- 


3510 RETURN 
8600 PRINT RT 9,6, 


J RT R 4 


" ; R 


1/5; s ‘l _ J “; RT 9+2,5; " J 
T R4*3 , ts; h$ 

3610 RETURN 

3700 P RINT RT R , B ; '• * 

1 >B; ”«Si M ; RT fl+2,B; 

T fi+3.B;P$ 

8710 RETURN 

8880 PRINT RT R,B; M «! 


T fl+3 ,b;p$ 

3810 RETURN 

8980 PRINT RT fl , B; ; RT 94 

1 /§; "t* ***!”'; RT Ri-2 , B; 

| H "f • j J L 1 ; P $ 

3910 RETURN 

9008 PRINT RT R, B; PS; RT 941,6;”! 
LlisSS f ; RT h+c ,« l«; P$] RT R+*j f o; h$ 
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9810 RETURN M 

Q180 PRINT RT R .5 ; PS; R T fl + lyB;"' 1 ! 
ETsiaB "; RT fi+2,B; “mESH "ifiT fi+3, 
BjP$ 

9110 RETURN 

QP00 PRINT RT R ^ B; : R ; 94 

i,B;“BBii ";fl+sTBT^liE^ ";h 

T fi+3js;P$ 

9210 RETURN 

OFI00 SfiUE " CROP NIQUtlS" 

9510 GOTO 1 

Veja as instrucSes: 

BEM UINDO PO -JOGO DE 


tNTRE COM dEU L-HPXTHi_ TuTHL. 
ENTRE COM 0 URLOR DP. PPOSTfi. 

p TECLfi "0" REINICIfi R JOGfiDfi. 

VOCE PODE DETER 1.. £ , OU 3 BfiRRRS,. 
ESCOLHP PELO NUMfcRO. 

RO GfiNHRR, UOCE PODE TENTRR 
MULTIRLICfiR 0 URLOR DO PREMIO. 

5E NRO OUISER ENTRE "C". 

SE OUISER MUDRR fl PPOSTfi , 

ENTRE "E” , E 0 NOUO URLOR. 


SgaHSS©,..DIGITE OURLOUER TECLfi. 

1) Verifique o valor, na tabela, de cada objeto que compde o jogc 

TRBELfl DE PONTOS 

CRPOSTfi X N. DE PONTOS) 


CERtJHS* . H . 
LRRRNJRS... 
LIMOES..... 

H M EIX H O , , . « 
SINOS. . . . . . 
RBOBORRS... 
PERRS...... 

MflUfiB...... 

+ + + ^T « a a a * * » 

B . i . * i « * i > * 

ZZ- w 

C 1 L.’ **»»•*»•* 

d- c* O 

uDDi * » * * * * * 


. « 4 » . •10 « * . * 

III i a * • 4* iiii 

J 

| I • i I * I 4* s • f « 

« * a ■ * a 10 • ■ a a 

# a a a s a 1 8 a a a a 

t t a i • < 18 i a « i 

a a a a a a 18 a a a a 

a a a a a a 18 a a a a 

a a a 4 4 1 8 0 a aC'4 

a a a a a a 20 a a a a 
aaaaaa28aaaa 

a a a a a » 40 I a a a 


op 

A ^i— V»' 

a 18 
a 18 

O '7\ 

M fciw L 

,28 

,28 

•*“» >*s 

a CLXJ 
a i— w 
208 
100 
288 
388 


XBBB“ DR UM 
ENTRE COM 


BONUS DE $1588 
OURLOUER TECLR. 
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2) Escolha o seu capital de jogo, 

3) Escolha o valor da aposta. 

4) A primeira jogada e automatics. 



Se nao houver premio, voce podera parar 1, 2 ou 3 das 4 barras 
(entre com o numero de barras a serem paradas), depois entre 0. Voce vera 
diante dos seus olhos as barras mudarem de posi$ao. 

5) Se voce for premiado, existe a oportunidade de arriscar urn aumento no 
valor do seu premio 2,3 ou 4 vezes. 
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Escolha se voce quer aumentar (atenpao, voce esta arriscado a per- 
der todo o premio) 

Se nao quiser arriscar, entre "C", e o premio Ihe sera contabilizado. 
Se voce escolheu aumentar a aposta tendo ou nao ganho, entre "0" 
para continuar a jogar. 

6) Cada nova jogada, perdida ou ganha, e iniciada pela digitacao da tecla 
" 0 " 

7) Se voce, em qualquer altura do jogo, quiser mudar o valor da aposta, en¬ 
tre "E" e depois o novo valor escolhido. 

8) BOASORTE. 

Skat 

0 Programs "SKAT" foi criado para auxiliar os meus amigos afic- 
cionados do jogo de SKAT a fazer a contabilizado dos resultados de suas 
partidas. 0 SKAT e o jogo de cartas mais difundido na Alemanha. Foi cria¬ 
do ha mais de 150 anos e e hoje jogado por mais de 10 milhSes de pessoas 
na Alemanha, alem dos milhares de adeptos mundo afora. 

Se voce joga Skat este programs e uma necessidade para voce. 

Se voce nao joga Skat, e nao pretende aprender este jogo, ainda 
assim vale a pena estudar o programs, pois ele mostra como colocar os 
pontos e como fazer a contabilizapao de resultados de qualquer jogo envol- 
vendo de 2 a 5 jogadores, memorizando seus nomes, calculando pontos e 
valores monetarios e tirando opcionalmente um extrato final dos resultados 
na impressora, se voce possuir uma. 

Vamos ao programs 


1 PEN 


J 0 G 0 5 $C L H S 5 10 0 S 


?C>6 . C.STEIN 
JUN 1984- 

3 GOSUB 5800 
•1 GOSUB 5828 

w* PR INT hT c! 4 d / UUUtC' UHU JUG 
PR EM 9URMT OS? 

18 INPUT 5$ 

11 IP S$ = * < " THEN GOTO 18 

12 ran SUB 5^8^ 

13 IP OK THEN GOTO 28 
14- GOSUB 5828 

15 PRINT RT 2,8; J, EU OUERO SRBE 

^*15 PRINT RT 3,3;"EM QURNTOS VO 
CES VRO JOGhK, M 
17 GOTO 10 
20 i_ET SKfllsVRL 3$ 
xZ. t> J2 U CT> U \Z' 8 xZ 0 

27 IP SKRT< =l THEN PRINT PT 2„ 
l; * M JOCt UR I OUtRER JOGhR SOZINHO 
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h* i"*** n»* !■■■“ 


IF 5KPT = 2 THEN PRINT fiT 2,2 

. >■ =* in pn5SIUEi_ d0GRR EM D0 IS." 

' 4-0 IF 5KPT <3 THEN GOTO 3 

45 IF 5KPT >5 THEN PRINT PT 2,5 
; " FROPN "; I NT s.SKflT/3) J " MfcSflS D 
E JOGO." 

50 IF 5KPT>5 THEN GOTO 3 
5 0 DIM F $ j: S KPT, 9) 

5 5 G 0 5 U J 5r* 0 0 
70 FOR Z=1 TO 3KPT 
SO PRINT RT 2,1; '*OURL t* 0 NOn 
E D n M ; Z ; “ i J 0 G H D 0 R ? 1 ' 

90 INPUT F$ ;Zi ___ 

GS PR I NT PT 3 > b i Z J . JuyHDUK ■ 

11 ; F i i Z} J 

9 S G 0 S U B w 0 0 0 
97 GOSUB 5038 

Q KjCyT 2 

00 PRINTER 7 SERA* 0 

L n Q D 0 P 0 NT 0 ?' ’ 

01 INPUT 5$ _ 

02 IP 5 $ = ** *’ THEN GOTu 101 
03 Gu c *UB 0 500 

105 IP NOT 0K THEN 6OTU 1yl 

106 LET P = UHL 5$ 

109 LirT K =P 

110 GOSUB 5300 


112 

PRINT 

PT 

♦ rfc 1 

* 

M ; P$ 


114 

GOSUB 

50i 

115 

;7 0 S U B 

50; 

120 

DIM P 

i SKi 

! O 7 

IP N= ; 

O Ti 

130 

p n :=. i i B 

£.0 

132 

IF tt< 

0 ' 

134 

LET N 

= 1 

-i er 

j. •_> 

PRINT 

PT 

13 6 

PRINT 

PT 

: ( a 

P$;*' 

/ P 0 

137 

PRINT 

P;T 

Jm C* O 

PRINT 

PT 

140 

FOR Z 

-1 

150 

PRINT 

QT 

TO 

3) 



1^5.rp n> 0 THEN GOSUB 5100 
156 PRINT PT 9,3 + 6* CZ-1) }0 
150 NtXT Z 
162 t-vS L 0 U 

171 FOR 5 =N TO 100 

172 IP 5 >SKfiT THEN LET S = 1 

173 LET 2=5 

175 PRINT PT 2,10;N 

177 PRINT PT 2,21; F$iZ) 

173 PRINT PT 21 a 2 : ; #, rEZ hLGUH ER 

R t_J ’> IjT U *08 0 £>•■•£•■••• 


181 FOR T=0 TO 500 
132 NEXl T 
135 G0 5 UB 5000 
1 m i*~i tj y 5» 5 c 0 0 

190 PRINT PT 19,6;"OUEM JOGOU E 
5TP HP O'? “ 

200 INPUT 
210 LET 2 = 1 . 

220 IP FS<Z, TO LEN ZS> =ZS THEN 
GOTO 260 

230 IP Z=SKRT THEN GOTO 245 
235 L.ET Z= Z + l 
240 GOTO 220 
245 GOSUB 5200 

250 PRINT PT 19,3;Z$} M NPO UEIO 
HH, , ” 

252 FOR T =0 TO 40 

253 NEXT T 

254 GOSUB 5200 

255 GOTO 190 
250 LET N=N+1 
£7R GOSUB 5200 

277 PRINT PT 19,6;"FEZ OURNTOS 
PONTOS?” 


278 

IMP 

UT 

C »f 



280 

IF 

5$ = 

it4i TT 

i 

HEN 

GOTO 278 

231 

P ni : = , 

UB 

5500 



2 d 4 

IF 

NOT 

OK 

THEN 

GOTO 278 

sz, o y« 

LET 

Z$ 

=S$ 



2 8 7 

pns 

UB 

5200 



290 

LET 

F < 

Z,X) 

=u pl 

Z $ 

300 

G n 5 

UB 

5100 



~;35 

PR I 

NT 

R l 5 

>2+6#iZ—1? ; . 


340 PRINT AT 9 ..2 + 6* (Z-l) ; Q 
342 I7 M THEN GOSUB 6609 

345 PRINT PT 15,1;” 


350 PRINT PT 15,7;“tSTQU CPLCUL 
PNDO . “ 

1000 LET H =0 
1010 FOR Z=i TO SKPT 
1020 FOR Y = 1 TO X 
1030 LET P=P+F(Z,Y) 

1040 NEXT Y 
1050 NEXT Z 
1050 PRINT PT 15l; ” 

M 

107© FOR Z = 1 TO SKRT 
1075 GOSUB 5100 
1110 LtT B=SKRT*0 

1120 PRINT RT 15,2+6*(Z-l);K*(B- 
fl) 

1130 Next z 



1140 NEXT S 

S000 l”OR T =0 TO 30 

3010 NEXT T 

5015 return 

5020 PRINT AT 1,1;" 
5030 PRINT AT 2,1;” 

t I 

504-0 PRINT PT 3,1; ” 

11 

5050 RETURN 
5100 LET Q=0 
5105 LET X=N 
5110 FOR V=1 TO X 
5120 LET 53 =53 + F<Z,Y> 
5130 NEXT V 

5140. RETURN 

5200 PRINT RT 19,1;" 


5210 

PR I 

NT PT 20 

* 

1 ’ “ 

^ t 

t t 


5230 

RET 

URN 




5300 

L izT 

PS=5TR$ 


(P-f .005 

) 

S310 

FOR 

P = I TO 

L 

EN P$ 


S320 

IF 

P$ ip) < > *' 

• 

*’ THEN 

NEXT p 

534 0 

LET 

P*=P$ < 

T 

0 P+2) 


*3*0 

RET 

URN 




5500 

LET 

OK =0 




5510 

FOR 

1 = 1 TO 

L 

EN 5$ 


sr cr *1 cr 

_i T? j_ ._t 

IF 

5$ (I) =“ 

rl 

THEN jL 

ET 3$ = ”0 


5520 IF 5$CI)>**9" THEN 

5525 NEXT I 
5530 LET 0K = 1 
5540 RETURN 
5000 r-fiST 


RET UR! 


5005 LET Z5 = " 

5010 PRINT RT 0,0;R$ 

5011 PRINT RT 0,10;"S 

it 

6012 FOR T = 1 TO 20 
6015 PRINT RT T,0;"1 

P 1 ' 

S0cl0 NEa i T 
5039 PRINT PT 21,0,R$ 
5035 PRINT PT 4,l;Z$ 
504.0 PRINT PT 12,1; Z$ 
504w« PR IN i PT 18,I;Z$ 
5055 IP N THEN GOTO 1 
5070 SLOW 

5073 PRINT RT 21,18; ”j 

SB" 
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5075 PRINT 
izR TEuLP « 

5076 IF IN* 
5080 PkIN t 



EV $ - " ” 



* * DIG IT E 
THEN GOT 


5085 PRINT PT 2,1;'*U0C 
PNDO IMPRES50RP ? " ; P^ 3 



O 0 H L L U 
0 5078 

TP* US 


5 0 8 S 

IN H U s W 5 


6 0 90 

IF 53$='' 5" r HEN LET 

M = 1 

5093 

L? u S U 5 Z* 0 cz O 


5095 

GOTO 5 


5100 

,“i T t) P 


5500 

let v$ = ;> 


5502 

LET U$ = " " 


5503 

LET X$=W$-rV$+F$ (1, 

1 TO 

5505 

FOR 2=2 TO SKAT 


5507 

LET X $ =X $ +V $ +!“ $ C Z . 

1 TO 

5510 

NEXT Z 


w cr -i d 

Q w i 

L PRINT X$ 


5520 

LPRINT M --- 

M 


5522 

LET N = 1 


w C 

0 0 c, w l 2 3 4 5 6 7 

GOTO 5000 


5500 

LET P =23 


5501 

L£lT L =U 


5502 

IF Z$(l)= u THEN 

LET P 

5 5 0 3 

IF Q < O THEN lET C = 

d 

c: c: racr 

i in^i ._t 

LPRINT TAB 0;N-l;TRB C+ 

-1) ; 

Q;TP5 H; UPL ZS 


5510 

RETURN - 


5000 

SPUE ••SKAT" 



5005 LET M =0 
3010 LET N=0 


8020 GOTO 5000 


> 


1) Entre com o programa no computador. 

2) Para armazena-io em fita coloque seu gravador em "REC" e entre 
"GOTO 8000". 

3) Ao iniciar o programa, responds se voce tern uma impressora acoplada 

4) Informe quantos jogadores irao jogar (no jogo de Skat participam 3 jo- 
gadores ativamente. Se houver 4 ou 5 a mesa, eles jogam alternadamente. 
Se houver mais de 5 jogadores fazem-se duas ou mais mesas. Portanto o 
programa aceita de 3 a 5 jogadores). 

5) De os nomes dos jogadores. 

6) Informe o valor do ponto para contabilizacao dos resultados e dos ga- 
nhos e perdas de cada jogador. 

7) A partir dai comepa-se a jogar. 

Ap6s alguns segundos o computador assume que a rodada j$ foi 
jogada, pergunta quern foi o licitador e quantos pontos positivos ou nega- 
tivos ele fez. Informe. 
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8) 0 computador entao calcula e mostra na tela o numero de pontos e os 
ganhos e perdas relativos a cada jogador. Havendo impressora, ela vai apre- 
sentando a contagem do jogo a cada rodada, sempre seguindo as Normas 
Internacionais do SKAT (alias, as regras de SKAT sao germanicamente ri- 
gorosas e devem ser seguidas a risca pelos jogadores). 

LOT LUX CLH BER 


9) 0 programa foi elaborado de forma a evitar maiores "galhos". Se 
houver, porem, alguma interrupqao, enti;e GOTO 6000 e ele retornara ao 
ponto da interrupqao com todos os dados em ordem. 

Aviso final aos jogadores de Skatr se voce, como eu, nao e um joga^ 
dor brilhante, o seu cartaz com os companheiros de jogo ira as nuvens na 
proxima vez que eles forem jogar na sua casa e voce contabilizar o jogo 
atraves deste programa. 


Se voce gostou do ffvro e aproveitou osprogramas que e/e contem; 

Se voce, anaiisando e digitando estes programas, aumentou sua col eg a o 
e aprendeu a/gumas tecnicas e truques novos de programagao; 
Entao o livro tera cumprido sua finalidade, e o autorpodera considerar se 
satisfeito e reaiizado. Era esta a sua intengao. 

Muito Obrigado 

Bernardo C. Stein 
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